Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.975 c