Wie auf Komponenten und Ereignisse im eigebettenten Formular zugreifen?

[needatip]

Hallo, ich lade ein Formular(Form1) in ein Panel(ContainerPanel) das auf meinem Hauptformular(MainForm) liegt:

Delphi-Quellcode:

var MainForm: TMainForm;
...
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;

Im Formular(Form1) habe ich einen Button der nun ein weiteres Formular(Form2) öffnet.
Form2 erstelle ich ganz normal in der IDE, ist also unabhängig von Form1 und MainForm.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

angezeigt wird.

Wie kann ich nun z.B. von Form2 die Komponenten(Eigenschaften) und Ereignisse von Form1 ansprechen?
Wenn ich z.B. ein Label(Label1) auf Form1 habe.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Label1.Caption:= 'Test !';
end;

Leider reagiert Form1 nicht auf meinen Button.
Hab schon verschiedenes mit Parent Anweisungen wie

Form2.Parent:= Form1; usw. versucht leider ohne Erfolg.

[pesi]

Vielleicht ne blöde Frage, aber hast Du mal getestet (z.B. mit nem Showmessage) ob Dein Button1Click überhaupt aufgerufen wird???

...oder mal ein Application.ProcessMessages nach Deiner Caption-Zuweisung ausprobiert?

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

[Fritzew]

Zitat von 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;

Warum nicht einfach?

Delphi-Quellcode:

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