Как программно добавить строку меню и подменю в TMainMenu

← →
Eraser (2002-03-04 16:01) [0]

Нужно добавить несколько меню а к ним подменю в MainMenu. Подскажите люди добрые

← →
MBo (2002-03-04 16:32) [1]

var mi:tmenuitem;
begin
mi:=tmenuitem.create(self);
mi.caption:="QQ";
//mi.onclick:= выбирай как надо
//mi.Action:=
mainmenu1.items.add(mi);

← →
Набережных С. (2002-03-04 18:00) [2]

например, так:
MI,MCI:TMenuItem; MI:=TMenuItem.Create(MainMenu); MI.Caption:=... MainMenu1.Items.Add(MI); MCI:=TMenuItem.Create(MainMenu); MCI.Caption:=... MCI.OnClick:=... MI.Add(MCI); MCI:=TMenuItem.Create(MainMenu); MCI.Caption:=... MCI.OnClick:=... MI.Add(MCI);

Как программно добавить строку меню и подменю в TMainMenu Найти похожие ветки