Delphi-Quellcode:
constructor TThumbnail.Create(AOwner : TComponent);
begin
ViewStyle := vsList;
{ Erzeugen des RichEdits }
FRichEdit := TRichEdit.Create(AOwner);
FRichEdit.FreeNotification(Self);
FRichEdit.Parent := Self.Parent;
FRichEdit.Width := 100;
FRichEdit.Height := 100;
FRichEdit.Top := Top;
FRichEdit.Left := Left + Width;
inherited Create(AOwner);
end;
So sieht jetzt der Code aus. Geht trotzdem nit.