ImageIndex1:integer;//检测量，请参看后面的代码

    IDEHandle:HWND;//存贮IDE的handle

  protected

    procedure AddMenu;//加入我们的菜单

    procedure ReMoveMenu;//卸载我们的菜单

    procedure ReCodeEditer(sender:TObject);//菜单项一的事件

    procedure AboutForm(sender:TObject);//菜单项二的事件

  public

    constructor Create;

    destructor Destroy;override;

  end;

procedure Register;

var

 MyNTATest:TNTATest;

implementation

procedure Register;

begin

  MyNTATest.AddMenu;

  //和传统组件的同名方法不同，这里没有在组件面板上安装图标

  //而是直接调用AddMenu方法添加我们的菜单

end;

{ TNTATest }

constructor TNTATest.Create;

begin

 IDEHandle:=(BorlandIDEServices as IOTAServices).GetParentHandle;

 //我们用IOTAServices接口的GetParentHandle方法取得了ide的handle

end;

procedure TNTATest.AddMenu;

var

 MenuItem:array [0..2] of TMenuItem;

 i:integer;

 Icon1:TIcon;//菜单项一的图标

begin

上一页  [1] [2] [3] [4] [5] [6]  下一页