Popupmenu?

← →
Ivolg © (2004-02-22 10:22) [0]

Здрасьте Мастера! Помогите пожалуйста! Как можно в Popupmenu создать Item программно и чтобы внём можно бало менять имя! Спасибо!

← →
olookin © (2004-02-22 10:27) [1]

procedure TForm1.Button1Click(Sender: TObject);
var m: tmenuitem;
begin
m:=tmenuitem.create(popupmenu1);
m.Caption:="myitem"; m.Name:="menuitem";
popupmenu1.Items.Add(m);
end;

Что то в этом духе

← →
Ivolg © (2004-02-22 10:42) [2]

Спасибо! а как ещё можно на каждый итем поставить процедуру!

← →
olookin © (2004-02-22 11:19) [3]

m.OnClick:=MyClick;

var ne:TNotifyEvent;
@ne:=@OnClick;
myitem.onclick:=ne;

СпасиБО!

Popupmenu? Найти похожие ветки