现在的位置: 首页 > 综合 > 正文

Create a menu item into the Delphi menu

2013年08月03日 ⁄ 综合 ⁄ 共 306字 ⁄ 字号 评论关闭
{....}

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;

抱歉!评论已关闭.