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

Как достучаться до того, кто вызвал 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]

Ай, спасибо!

---

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

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



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