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
begin
MyNTATest.AddMenu;
//和传统组件的同名方法不同,这里没有在组件面板上安装图标
//而是直接调用AddMenu方法添加我们的菜单
{ TNTATest }
constructor TNTATest.Create;
IDEHandle:=(BorlandIDEServices as IOTAServices).GetParentHandle;
//我们用IOTAServices接口的GetParentHandle方法取得了ide的handle
procedure TNTATest.AddMenu;
MenuItem:array [0..2] of TMenuItem;
i:integer;
Icon1:TIcon;//菜单项一的图标
上一页 [1] [2] [3] [4] [5] [6] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18