Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.025 c