EInvalid Operation "Element hat kein übergeodnetes Fenster"

[ATS3788]

Delphi-Quellcode:

function RTF_To_Plain_Text(S : AnsiString) : string;
var
Stream       : TMemoryStream;
RichEdit     : TRichEdit;
begin
try
Stream := TMemoryStream.Create;
Stream.WriteBuffer(pointer(S)^ , length(S));
try
RichEdit := TRichEdit.CreateParented(HWND_MESSAGE);
RichEdit.Parent := nil;
RichEdit.PlainText := false;
RichEdit.WordWrap := false;
RichEdit.Visible := false;

Stream.Position := 0;
RichEdit.Lines.LoadFromStream(Stream);

Result := RichEdit.Lines.Text;
finally
RichEdit.Free;
end;
finally
Stream.Free;
end; end;

Also gelöst habe ich es so
Schönes Wochenende

[DeddyH]

Du hast das try jeweils falsch gesetzt.

Delphi-Quellcode:

bla := Tbla.Create;
try
  bla.Machwas;
finally
  bla.Free;
end;

So wäre es richtig.

[Bernhard Geyer]

Zitat von ATS3788:

RichEdit := TRichEdit.CreateParented(HWND_MESSAGE);

Jetzt entwickel ich mehr als 15 Jahre mit Delphi und das ist etwas was ich schon 2-3 mal gebraucht hätte.
Man lernt doch nicht aus ...

[DeddyH]

Message-Only Windows, das wurde in der DP gelegentlich schon angesprochen. Ich vergesse das selbst aber auch gern immer wieder