INTAEditViewNotifier startet nicht!

[stahli]

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.