Wie auf Komponenten und Ereignisse im eigebettenten Formular zugreifen?

[needatip]

Also Button1.Click von Form2 funktioniert.
Muss also an was anderem liegen.

[needatip]

Komponenten auf Form2 reagieren auch (ShowMessage funktioniert auch)
Komisch!

[Olli73]

Du weist die neu erstellte Instanz von TForm1 nicht der Variablen Form1 zu, sondern NewForm (NewForm := NewFormClass.Create(Self).

Somit ist dein Form1 != der erstellten Instanz. Hast du Form1 noch im "automatischen create", dann greifst du mit Form2 auf eine andere (unsichtbare) Instanz zu.

[needatip]

NewForm:= NewFormClass.Create(Form1); funktioniert aber auch nicht!

[Olli73]

Zitat von needatip:

NewForm:= NewFormClass.Create(Form1); funktioniert aber auch nicht!

Also wenn schon, dann:

Form1 := NewFormClass.Create(self); Nicht schön, aber funktioniert.

[needatip]

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
  NewFormClass: TFormClass;
  NewForm: TForm;
begin
  NewFormClass := TForm1;
  if ContainerPanel.ControlCount > 0 then
    ContainerPanel.Controls[0].Free;
  if Assigned(NewFormClass) then
  begin
    NewForm := NewFormClass.Create(self);
    NewForm.Hide;
    NewForm.BorderStyle := bsNone;
    NewForm.Parent := ContainerPanel;
    NewForm.Align := alClient;
    NewForm.Show;
  end;
end;

Geht ja nicht weil Compiler meckert!
[dcc32 Fehler] Unit1.pas(39): E2010 Inkompatible Typen: 'TForm1' und 'TForm'

Ich glaub ich steh grad am Schlauch

[needatip]

Sorry wollte schreiben:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
  NewFormClass: TFormClass;
  NewForm: TForm;
begin
  NewFormClass := TForm1;
  if ContainerPanel.ControlCount > 0 then
    ContainerPanel.Controls[0].Free;
  if Assigned(NewFormClass) then
  begin
    Form1 := NewFormClass.Create(self);
    NewForm.Hide;
    NewForm.BorderStyle := bsNone;
    NewForm.Parent := ContainerPanel;
    NewForm.Align := alClient;
    NewForm.Show;
  end;
end;