Delphi Open Tools API - How to create and add new menu item

    之前提介绍过如何编写一个菜单专家（Menu Wizard），但它有一个不足之处--就是我们所编写的菜单项只能作为Delphi IDE环境中的“Help”菜单的子项出现。如果我们想在Delphi IDE主菜单中任一位置插入我们自己的菜单项又应该如何做呢？

    其实办法很简单，只需要编写一个插件专家（Add-in Wizard），在其构造函数中将菜单插入到Delphi IDE主菜单中，并在其析构函数中析构掉新插入的菜单项。

    首先我们要在专家类中定义一些私有成员，用于保存Delphi IDE的主菜单，及我们新创建的菜单项。

FMainMenu: TMainMenu;
FNewMenuItem: TMenuItem;

    接下来要做的就是在构造函数中获得Delphi IDE主菜单对象的实例，创建新菜单项并插入。

// Find Delphi's main menu
FMainMenu : =  (BorlandIDEServices  as  INTAServices) .MainMenu;

// Create new menu item
FNewItem : =  TMenuItem.Create(Nil);
FNewItem.Caption : =   ' Add-in Menu ' ;
FNewItem.OnClick : =  MenuItemClick;

// Insert new menu item
FMainMenu.Items.Insert(FMainMenu.Items.Count  -   1 , FNewItem);

    最后要在析构函数中释放掉我们插入的菜单项。

 

FMainMenu.Items.Remove(FNewItem);
    FNewItem.Free;