TForm als TFrame erben/verwenden ?

[spacewolf]

Frohes Fest, ähmmm Frohes Neujahr,

ich habe eine TForm mit allerlei Funktionalitäten drin, das nutze ich in einen Program als MDI-Child.
Wiederum möchte ich diese Form in einem anderen Form als Frame verwenden.
Ich weiß, ich weiß gleich ein Frame draus machen und das dann ggf. in die Forms legen -
- damit hatte ich aber in der Vergangenheit nur Ärger gehabt sobald man ein und das selbe Frame in verschiedenen Projekten verwendet.

Kann ich ein Form als Frame erben und in einem anderen Form als Client auf einem Panel anzeigen lassen bzw. verwenden?

Danke für eure Ideen

Andreas

[Dezipaitor]

Ein Frame ist doch auch nichts anderes als ein Fenster.
Entferne doch daher einfach die Titel- und Grenzleiste und setze das Fenster worein du willst.

[spacewolf]

Bescheidene Frage: Wie?

Kannst Du es Sourcemäßig mal kurz Skizieren?

[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