exit;
end;
EditView:=Editor.EditViews[i];
//使用IOTASourceEditor的 EditViews[]属性得到一个IOTAEditView
EditWriterPos:=EditView.Position;
//使用IOTAEditView的Position属性最终得到一个IOTAEditPosition
EditWriterPos.InsertText(''''{/// This is add by the OTATest of hk.barton,enjoy days! ///}'''');
//IOTAEditPosition的InsertText方法向当前光标位置插入一行代码,这里是一行注释。
end;
procedure TNTATest.AboutForm(sender: TObject);
//一个简单的关于对话框,注意参数中的IDEHandle
begin
messagebox(IDEHandle,''''This is a test of OTA write by hk.barton'''',''''hkTest'''',MB_ICONINFORMATION);
end;
procedure TNTATest.ReMoveMenu;
//卸载菜单
begin
if assigned(NewMenu) then
NewMenu.Free;
end;
destructor TNTATest.Destroy;
begin
MyNTATest.ReMoveMenu;
if ImageIndex1<>-1 then
//如果在前面加载图标的工作出现异常就不释放图标,否则会释放到delphi本身使用的图标
MyNTATest.FImageList.Delete(MyNTATest.ImageIndex1);
inherited;
end;
initialization
//在组件第一次被安装时创建了TNTATest
MyNTATest:=TNTATest.Create;
finalization
//在组件被卸载时释放了MyNTATest
MyNTATest.Free;
end.
请注意上面代码中的注释。单就这个例子可能并没有多少用处,然而只要你稍微扩展就可以让这个例子有一点实际用处,你可以加入很多菜单项,每一个项对应一些用户常用的但烦琐的代码,这样就可以免去在开发中输入同样代码的烦琐了,甚至你还可以设置快捷键,也可以做一个设置窗口允许用户自己设置需要的代码和动态的添加菜单项目。当然要完成更复杂的插件你还需要其他的OTA知识 上一页 [1] [2] [3] [4] [5] [6] 下一页 [办公软件]Word编程之WindowActivate、DocumentOpen和Docume… [电脑技术]HP打印复印机出现Jam in print pager path和op… [系统软件]InstallShield Express for delphi制作安装程序定… [系统软件]OPEN SERVER 5.0.5安装EXP300阵列柜 [常用软件]InstallShield Express制作Delphi数据库安装程序 [常用软件]Open Desktop 开放着 美丽着 [常用软件]族门新秀:ACD mPower Tools [常用软件][媒体]虚拟光驱Daemon Tools实用教程 [Delphi程序]为什么选择Delphi.Net ? [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
|