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;

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

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