Как добавить пункт меню?

Previous  Top  Next

    
 

 

 

 

Code:

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

©Drkb::01310

Взято с Vingrad.ru http://forum.vingrad.ru