Schau mal, ob Dir die
Unit weiter hilft.
Aufrufen dann z.B. mit:
Delphi-Quellcode:
function Get_Selected_Text: String;
var
EditorServices: IOTAEditorServices;
EditView: IOTAEditView;
EditBlock: IOTAEditBlock;
begin
Result := '';
EditorServices := BorlandIDEServices as IOTAEditorServices;
EditView := EditorServices.TopView;
RegisterViewPaintNotifier(EditView);
if Assigned(EditView) then
begin
EditBlock := EditView.GetBlock;
Result := EditBlock.Text;
end;
end;
Ich weiß nicht, ob es Dein Problem löst, aber so läuft es bei mir zuverlässig.