показать имя 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), вероятно.

>автор

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

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