由布鲁诺Fierens这个文件,Extending the Delphi IDE:
var
EditorServices: IOTAEditorServices;
EditView: IOTAEditView;
copyright: string;
begin
copyright := '{ Copyright © 2011 by tmssoftware.com }';
EditorServices := BorlandIDEServices as IOTAEditorServices;
EditView := EditorServices.TopView;
if Assigned(EditView) then
begin
// position cursor at 1,1
EditView.Buffer.EditPosition.Move(1,1);
// insert copyright notice on top
EditView.Buffer.EditPosition.InsertText(copyright);
end;
end;
使用EditView.Buffer.EditPosition.Move()
你应该能够将光标自由移动到任何位置。