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

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]

СпасиБО!

---

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

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



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