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]  下一页