...create a menu item into the Delphi menu?

Author: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Category: OpenTools API

{....}

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base