Sourcecode für zur Designtime erzeugten Methode per designer.createmethod

[DeddyH]

Oh, da habe ich Dich komplett missverstanden, sorry.

[Keldorn]

kein Problem.

habe nun eine andere Alternative gesucht und schreibe nun den gewünschten Code ganz normal nach showmethod in den Editor per

Delphi-Quellcode:

    procedure Proc_SetEditblock(const AText: string);
    var
      EditorServices: IOTAEditorServices;
      EditView: IOTAEditView;
    begin
      EditorServices := BorlandIDEServices as IOTAEditorServices;
      EditView := EditorServices.TopView;
      if Assigned(EditView) then
        begin
          EditView.Buffer.EditPosition.InsertText(aText);
          EditView.Paint;
        end;
    end;

macht erstmal das, was ich erreichen wollte.
Falls noch jemand eine andere Idee hat, gerne.