| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как достучаться до того, кто вызвал POPUP? [D6, WinXP]
01 © (2005-03-03 07:53:00)Caption:=
((Sender as TMenuItem).Owner as TObject).ClassName;
Это как оказалось, TForm..
А как соотносится TPopupMenu (наследник TMenu) и его TMenuItems?
Т.е. вопрос:
procedure TForm1.MenuItem01Click(Sender: TObject);
begin
// как вот отсюда узнать того, по кому кликнули правой кнопкой мыши и поэтому пришли сюда?
end;
01 (2005-03-03 09:01:00) [1]Ай, спасибо!
begin...end (2005-03-03 08:16:00) [2]> 01 (03.03.05 7:53)
TPopupMenu((Sender as TMenuItem).GetParentMenu).PopupComponent
Карелин Артем (2005-03-03 08:15:00) [3]Хотя если меню вылезает без нажатия правой кнопкой мыши (PopupMenu1.Popup(1,1) к примеру), то Screen.ActiveControl будет врать.
Карелин Артем (2005-03-03 07:59:00) [4]Screen.ActiveControl это будет.
| |
