TForm als TFrame erben/verwenden ?

[MStoll]

Hi,

versuch's mal so:

Delphi-Quellcode:

TForm1 = class(TForm)
         //....
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure Loaded; override;
  public
    constructor Create(AOwner: TComponent;
                       AParent: TWinControl); reintroduce;

//....

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or WS_CHILD;
end;

procedure TForm1.Loaded;
begin
     inherited;
     Align := alClient;
     BorderStyle := bsNone;
     BorderIcons := [];
     Parent := FTempParent;
     Position := poDefault;
end;

constructor TForm1.Create(AOwner: TComponent; AParent: TWinControl);
begin
     FTempParent := aParent;
     inherited Create(AOwner);
end;

dann rufst du das TForm1.Create einfach mit deinem Container, der dein Formular enthalten soll, als 2. Parameter auf!

Gruß
Michael