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

Материал из DRKB

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

procedure AddItemsM(vAction: TAction; vMenu: TMainMenu);
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 пункта меню "Окна" (этот код я писал для добавления открытых окон в пункт меню "Окна", главного меню своего приложения)


Author: Pegas
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01310