VCL Formular in ein Panel einbetten

[delphicoder123]

Im Formular "Form1" befindet sich ein Panel.
Auf diesem Panel soll ein zweites Formular "Form2" eingebettet werden.
Es sollen aber nicht nur die Komponenten eingebettet werden, sondern auch die Funktionsweise.
Ich verwende ein VCL Formular.

Suchfunktion habe ich schon verwendet. Trotzdem bekomme ich es anhand des Beispiels nicht hin.
https://www.delphipraxis.net/27476-f...einbetten.html

Was mache ich falsch?
Hier ist mein aktueller Code:

Code:

unit parent;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, child;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1 := TForm1.Create(Panel1);
  Form1.Parent := Panel1;
  Form1.SetBounds(10,10,Form2.Width, Form2.Height);
  Form1.FormStyle := fsNormal; // Hatte diese Zeile vergessen
  Form1.Visible := true;
end;

end.

Code:

unit child;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    btnCalc: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    procedure btnCalcClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btnCalcClick(Sender: TObject);
begin
edit3.Text:=edit1.Text+edit2.Text;
end;

end.

[hoika]

Hallo,

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1 := TForm1.Create(Panel1);

Ich dachte, du wolltest Form2 erstellen.

[delphicoder123]

Zitat:

Zitat von hoika (Beitrag 1434367)

Hallo,

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1 := TForm1.Create(Panel1);

Ich dachte, du wolltest Form2 erstellen.

Was ist jetzt genau mein Fehler?

[hoika]

Hallo,

alt

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1 := TForm1.Create(Panel1);

neu

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Panel1);

[uligerhardt]

Außerdem: Wenn möglich, nimm Frames statt Forms, wenn du es einbetten willst.

[Luckie]

Warum willst du ein Auto in den Kofferraum eines anderen Autos packen? :roll:

[EWeiss]

Zitat:

Zitat von Luckie (Beitrag 1434374)

Warum willst du ein Auto in den Kofferraum eines anderen Autos packen? :roll:

Zitat:

Auf diesem Panel soll ein zweites Formular "Form2" eingebettet werden.

Wir wissen doch gar nicht warum und welchen zweck er damit erfüllen will.

Weist du eigentlich wie viele Windows ich in einem anderen Parke?
Überlege mal was ein Button ist..
Vielleicht will er genau das damit bezwecken.. lediglich die Form als Fenster(Window) zweckentfremden.

Ein Auto-Fahrzeugtransporter tut nichts anderes. ;)

gruss

[Luckie]

Deswegen Frage ich ja. Und ja ich weiß was Schaltflächen und andere Kontrollelemente sind. Aber eine Schaltfläche ist kein Hauptfenster und kann es nicht sein. Und wenn du ein Auto mit einem Auto transportierst, dann benutzt du ein Auto, was dafür gedacht ist. Im Falle der VCL wären das, wie oben schon gesagt, Frames.

[EWeiss]

Zitat:

Zitat von Luckie (Beitrag 1434376)

Deswegen Frage ich ja. Und ja ich weiß was Schaltflächen und andere Kontrollelemente sind. Aber eine Schaltfläche ist kein Hauptfenster und kann es nicht sein. Und wenn du ein Auto mit einem Auto transportierst, dann benutzt du ein Auto, was dafür gedacht ist.

Nun ja ein MDI-Hauptformular ist nichts anderes als eine Form und es ist durchaus berechtigt diese in eine andere Form zu parken..
Abgesehen davon das es noch erwünscht ist.. macht man ja heute nicht mehr.

Zitat:

Und ja ich weiß was Schaltflächen

Ist mir klar.. ;)

gruss

[delphicoder123]

Zitat:

Zitat von uligerhardt (Beitrag 1434373)

Außerdem: Wenn möglich, nimm Frames statt Forms, wenn du es einbetten willst.

Du meinst, dass ich ein VCL-Frame anstatt eines VCL Formular nehmen soll?
Es können gerne auch andere antworten.