Mega Code Archive

 

Categories / Delphi / System

 

Create a menu item into the delphi menu

{....} uses ToolsApi, Menus; {....} var item: TMenuItem; begin {get reference to delphi's mainmenu. You can handle it like a common TMainMenu} with (BorlandIDEServices as INTAServices).GetMainMenu do begin item := TMenuItem.Create(nil); item.Caption := 'A Mewn caption'; Items.Add(item); end; end;