RichEdit erstellen, wenns auf die Form gezogen wird.

[Die Muhkuh]

Ja so gehts. Das Problem ist nun, dass Problem ist nun ich hab zwei Kompos auf der Form... ein ShellTreeView uns ein RichEdit :shock:. Das müsste man irgendwie verschmelzen

[CalganX]

Hi,
platziere doch einfach das RichEdit direkt über der ShellListView bzw. direkt daneben. ;)

Chris

[ibp]

oder...

Delphi-Quellcode:

FRichEdit.Parent := AOwner;

...

[Die Muhkuh]

@Chris

wie?


@ibp

geht net, hab ich auch schon probiert.

[CalganX]

Hi,
du musst halt die Position des RichEdits immer wieder verändern. Dabei solltest du auf die Veränderung der Werte des ShellListView reagieren. ;)

Chris

[ibp]

und wie ist es hiermit?

Delphi-Quellcode:

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

  ViewStyle := vsList;

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

[Die Muhkuh]

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.

[ibp]

poste doch mal alles

[Die Muhkuh]

Wenns meinst:

Delphi-Quellcode:

unit Thumbnail;

interface

uses
  SysUtils, Classes, Controls, 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;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Spider', [TThumbnail]);
end;

{ TThumbnail }

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;

initialization
RegisterClass(TRichEdit);
finalization
UnregisterClass(TRichEdit);
//Das braucht wenn man die Kompo dynamisch erstellt.

end.

[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;