Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: 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 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
6-1106038483
Nikola62
2005-01-18 11:54
2005.03.20
Получение протокола звонков по Lan


4-1107338363
Bil Bal Dur
2005-02-02 12:59
2005.03.20
Как запустить 1.txt в ворде?


14-1109292242
SkyRanger
2005-02-25 03:44
2005.03.20
RSS - функция


1-1109846733
Openfire
2005-03-03 13:45
2005.03.20
DBGrid и PageControl


3-1108932186
VitGun
2005-02-20 23:43
2005.03.20
Формы Excel -> FastReport