Текущий архив: 2004.10.31;
Скачать: CL | DM;
Вниз
Sender в MenuItem Найти похожие ветки
← →
Mishenka (2004-10-19 13:41) [0]Обрабатывается событие OnClick по пункту PopupMenu. Кто в этом событии является Sender"ом???
← →
R © (2004-10-19 13:44) [1]Этот пункт.
← →
Mishenka (2004-10-19 14:18) [2]А вот если само PopupMenu одинаково для нескольких компонентов, то как узнать какой из них вызвал это меню?
← →
Ega23 © (2004-10-19 14:19) [3]Этот пункт.
Не факт. Это и TAction может быть.
← →
R © (2004-10-19 14:37) [4]Все зависит где узнавать и какая задача.
Например
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;
Страницы: 1 вся ветка
Текущий архив: 2004.10.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.097 c
