Обработка события OnClick динамически созданных Item ов

← →
Тихон (2005-11-01 13:01) [0]

Уважаемые Мастера! Подскажите, как отловить событие OnClick по элементам PopupMenu?
К кнопке типа TToolButton прекреплено PopupMenu1, в которое динамически заносятся имена
окрытых пользователем файлов. При щелчке по элементу меню нужно узнать его Caption, но как
это сделать, если элемент создан динамически?
Заранее благодарен!

← →
AbrosimovA (2005-11-01 13:15) [1]

procedure ....
with <Динам. элемент> do begin
....
OnClick:=ItemsClick
end;
end;

procedure ItemsClick(Sender: TObject)
var FileName: string;
begin
FileName:=TMenuItem(Sender).Caption;
......
end

Обработка события OnClick динамически созданных Item ов Найти похожие ветки