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

Обработка события 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

---

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

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



Память: 0.44 MB
Время: 0.026 c