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

1 PopupMenu и несколько компонентов   Найти похожие ветки 

← →
OlegM ©   (2003-06-04 13:52) [0]

Привет всем!
В проге динамически создаются компоненты типа TPanel и к ним привязывается PopupMenu (одно и тоже). Так вот не могу определить, когда выбирается один из пунктов этого меню имя компонента. Подскажите пожалуста.

---

← →
ladybird   (2003-06-04 14:01) [1]

property PopupComponent: TComponent;

---

← →
OlegM ©   (2003-06-04 14:04) [2]

Раскажите поподробней

---

← →
Palladin ©   (2003-06-04 14:12) [3]

куда уж подробней...

---

← →
ladybird   (2003-06-04 14:12) [4]

Panel1 := TPanel.Create(Self);
Panel2 := TPanel.Create(Self);
...
Panel1.PopupMenu := PopupMenu1;
Panel2.PopupMenu := PopupMenu1;


procedure TForm1.PopupMenu1Item1Click(Sender: TObject);
begin
ShowMessage(PopupMenu1.PopupComponent.Name);
end;

---

← →
OlegM ©   (2003-06-04 14:15) [5]

Огромное спасибо

---

Страницы: 1 вся ветка

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



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