Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Sender в MenuItem [D6, Win2k]


Mishenka ©   (2004-10-19 13:41:00) 

Обрабатывается событие OnClick по пункту PopupMenu. Кто в этом событии является Sender'ом???


R   (2004-10-19 14:37:00) [1]

Все зависит где узнавать и какая задача.
Например
procedure TForm1.ttClick(Sender: TObject);
begin
If Sender is TMenuItem Then begin
Text:=TMenuItem(Sender).Caption +
TMenuItem(Sender).GetParentComponent.Name +
   TPopupMenu(TMenuItem(Sender).GetParentComponent).PopupComponent.Name

   end;
end;


Ega23   (2004-10-19 14:19:00) [2]

Этот пункт.

Не факт. Это и TAction может быть.


Mishenka   (2004-10-19 14:18:00) [3]

А вот если само PopupMenu одинаково для нескольких компонентов, то как узнать какой из них вызвал это меню?


R   (2004-10-19 13:44:00) [4]

Этот пункт.


Наверх

Титульная страница Поиск, карта сайта Написать письмо