![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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]Этот пункт.