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]

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

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