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

показать имя PopupMemu итема   Найти похожие ветки 

← →
tradakad   (2004-12-20 15:21) [0]

есть итем создаваемый динамически.

function TfMain.AddToVisiblePopup(wTitle:string;Wnd:THandle):boolean;
var
 NewItem: TMenuItem;
begin
 NewItem := TMenuItem.Create(self);
 NewItem.Name:="vis"+inttostr(Wnd);
 NewItem.Caption:=wTitle;
 NewItem.ImageIndex:=ImageList1.Count-1;
 PopupMenu1.Items[0].Add(NewItem);
end;
как создать для него OnClick чтобы при клике на этом итеме показывалось наприер его имя?
пока чего я достиг так это вот:
 NewItem.OnClick:=HideVisibleWIndow(NewItem);
т.е. вызывается

procedure TfMain.HideVisibleWIndow(Sender: TObject);
begin
Showmessage(Sender.ClassName);
end;

и при клике я получаю имя класса TmenuItem. т.е. глубже ничего не могу достать. если пытаюсь передать какието еще параметры в HideVisibleWIndow - страшно ругается и не работает.

---

← →
Александр Иванов ©   (2004-12-20 15:30) [1]

Вот это работает:
NewItem.OnClick:=HideVisibleWIndow(NewItem);
???

---

← →
Александр Иванов ©   (2004-12-20 15:34) [2]

Св-во TMenuItem.onClick имеет тип TNotifyEvent и менять количество параметров и их описание не получится.
А присваивать надо так:
NewItem.OnClick:=self.HideVisibleWIndow;

---

← →
begin...end ©   (2004-12-20 15:34) [3]

> tradakad   (20.12.04 15:21)

> показывалось наприер его имя

Имя - это TMenuItem.Name, что ли?

Тогда ShowMessage((Sender as TMenuItem).Name), вероятно.

---

← →
panov ©   (2004-12-20 15:51) [4]

>автор

Изучи правила.

---

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

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



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