Обработка события OnClick динамически созданных Item'ов [D7, WinXP]
Тихон © (2005-11-01 13:01:00)
Уважаемые Мастера! Подскажите, как отловить событие OnClick по
элементам PopupMenu?
К кнопке типа TToolButton прекреплено PopupMenu1, в которое
динамически заносятся имена
окрытых пользователем файлов. При щелчке по элементу меню
нужно узнать его Caption, но как
это сделать, если элемент создан динамически?
Заранее благодарен!
AbrosimovA (2005-11-01 13:15:00) [1]
procedure ....
with <Динам. элемент> do begin
....
OnClick:=ItemsClick
end;
end;
procedure ItemsClick(Sender: TObject)
var FileName: string;
begin
FileName:=TMenuItem(Sender).Caption;
......
end
Наверх 
ЧАТ |
Орешник |
|
