Как добавить пункт меню? |
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