Как достучаться до того, кто вызвал POPUP?

← →
01 (2005-03-03 07:53) [0]

Caption:=
((Sender as TMenuItem).Owner as TObject).ClassName;

Это как оказалось, TForm..
А как соотносится TPopupMenu (наследник TMenu) и его TMenuItems?

Т.е. вопрос:

procedure TForm1.MenuItem01Click(Sender: TObject);
begin

// как вот отсюда узнать того, по кому кликнули правой кнопкой мыши и поэтому пришли сюда?

end;

← →
Карелин Артем © (2005-03-03 07:59) [1]

Screen.ActiveControl это будет.

← →
Карелин Артем © (2005-03-03 08:15) [2]

Хотя если меню вылезает без нажатия правой кнопкой мыши (PopupMenu1.Popup(1,1) к примеру), то Screen.ActiveControl будет врать.

← →
begin...end © (2005-03-03 08:16) [3]

> 01 (03.03.05 7:53)

TPopupMenu((Sender as TMenuItem).GetParentMenu).PopupComponent

← →
01 (2005-03-03 09:01) [4]

Ай, спасибо!

Как достучаться до того, кто вызвал POPUP? Найти похожие ветки