Текущий архив: 2005.03.06;
Скачать: CL | DM;
Вниз
Подскажите с созданием 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;
.....
← →
begin...end © (2005-02-21 18:12) [2]> hgd (21.02.05 16:16)
> с получением его Caption
В методе ClickMenuItem (см. [1]) используйте свойство (Sender as TMenuItem).Caption.
Страницы: 1 вся ветка
Текущий архив: 2005.03.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.04 c
