Подскажите с созданием TItemMenu

← →
hgd (2005-02-21 16:16) [0]

Создал TItemMenu
ItemFiles : array [1..5] of TMenuItem;

for ..................
ItemFiles[i]:=TMenuItem.Create(Self);
ItemFiles[i].Caption:="Vasia";
ItemFiles[i].OnClick:=?????????????
PopupMenu2.Items.Add(ItemFiles[i]);

Как создать процедуру обрабатывающую OnClick данного ItemFiles с получением его Caption.

← →
DesWind © (2005-02-21 16:48) [1]

procedure TForm1.ClickMenuItem(Sender: TObject);
begin
.....
end;

....
ItemFiles[i].OnClick:=ClickMenuItem;
.....

> hgd (21.02.05 16:16)

> с получением его Caption

В методе ClickMenuItem (см. [1]) используйте свойство (Sender as TMenuItem).Caption.

Подскажите с созданием TItemMenu Найти похожие ветки