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

Изменение PopupMenu   Найти похожие ветки 

← →
Xerox   (2003-09-07 00:28) [0]

Привет усем! Скажите, как изменять PopupMenu в run-time? В частности интересует добавление новых menu и sub-menu. пытаюсь сделать что то типа:


procedure TForm1.Button1Click(Sender: TObject);
var item:tmenuitem;
begin
item.caption:="Вася";
popupmenu1.items.insert(0,item);
end;

Но не получается =(. Помогите плз.

---

← →
BustaBoss ©   (2003-09-07 02:23) [1]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
m : TMenuItem;
begin
m := TMenuItem.Create(self);
PopupMenu1.Items.Add(m); // или PopupMenu1.Items.Insert(0,m)
m.Caption := "MainMenu";
end;

А SubMenu можно создать так:

var
m : TMenuItem;
begin
m := TMenuItem.Create(self);
PopupMenu1.Items[0].Add(m); // или PopupMenu1.Items[0].Insert
m.Caption := "SubMenu";

---

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

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



Память: 0.44 MB
Время: 0.012 c