RichEdit erstellen, wenns auf die Form gezogen wird.

[ibp]

also bei mir geht es, hab nun keine kompo erstellt, sonder die classe in ein form gepackt:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ShellCtrls;

type
  TThumbnail = class(TShellListView)
  private
    { Private-Deklarationen }
    FRichEdit : TRichEdit;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner : TComponent); override;
  published
    { Published-Deklarationen }
end;


....

constructor TThumbnail.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  ViewStyle := vsList;

  { Erzeugen des RichEdits }
  FRichEdit := TRichEdit.Create(self.Parent);
  FRichEdit.Parent := self.Parent;
  FRichEdit.Width  := 100;
  FRichEdit.Height := 100;
  FRichEdit.Top := Top;
  FRichEdit.Left := Left + Width;
end;

...

procedure TForm1.FormCreate(Sender: TObject);
var thumb:TThumbnail;
begin
  thumb:=TThumbnail.Create(self);
  thumb.Parent:=self;
  thumb.Show;
end;