Изменение 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";

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