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

Как создать свой пункт меню в Дельфи 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;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

DELPHI FAQ