Скачать: CL | DM;

TPopupMenu   Найти похожие ветки 

← →
gidd   (2006-10-14 10:08) [0]

Проблема такая: На форме есть PopupMenu1, пытаюсь динамически определять нажатую менюшку, но во время выполнения вылетает ошибка доступа к памяти.
Вот код:
procedure TfMailClient.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
 Rebuild: Boolean);
begin
 if Assigned(PopupMenu1) then
   if Source.Caption = "копировать" then ShowMessage("ok");
end;

---

← →
Percent   (2006-10-14 10:57) [1]

См. событие OnClick у TMenuItem. В нем Sender - нажатый пункт меню.

---

← →
gidd   (2006-10-14 11:34) [2]

Спасибо, так все работает :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c