Как создать свой пункт меню в Дельфи IDE?

Материал из DRKB

Как создать свой пункт меню в Дельфи IDE?[править | править код]

{....} 

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;


Source: http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 00028