Как добавить пункт меню?
Falk0ner, вс, 06/07/2008 - 15:34.
procedure AddItemsM(vAction: TAction; vMenu:TMainMenu);
{©Drkb v.3(2007): www.drkb.ru}
var
index: integer
vItems :TMenuItem;
begin
index := vMenu.Items.IndexOf(nmWindow);
vItems := TMenuItem.Create(vMenu);
vItems.Action := vAction;
vMenu.Items.Items[index].Add(vItems);
end;
nmWindow - это Name пункта меню "Окна"
(этот код я писал для добавления открытых окон в пункт меню "Окна", главного меню своего приложения)
Автор Pegas
Взято с Vingrad.ru http://forum.vingrad.ru{©Drkb v.3(2007): www.drkb.ru}
var
index: integer
vItems :TMenuItem;
begin
index := vMenu.Items.IndexOf(nmWindow);
vItems := TMenuItem.Create(vMenu);
vItems.Action := vAction;
vMenu.Items.Items[index].Add(vItems);
end;
Отправить комментарий