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;

← →
TUser (2004-02-22 11:24) [4]

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

← →
Ivolg (2004-02-22 12:01) [5]

СпасиБО!

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