Wie auf Komponenten und Ereignisse im eigebettenten Formular zugreifen?

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

[needatip]

Hab ich auch schon versucht, aber der Zugriff von Form2 geht trotzdem nicht!

[HolgerX]

Hmm..

Was soll das mit den globalen Form-Variablen?
Das macht man so nicht (zumindestens meine Meinung)!

Ich lösche immer alle Form-Variablen auf allen weiteren Formularen!
Nur auf dem Main bleibt es bestehen.

Auch werden außer dem Main-Form keine weiteren Formulare bei Start direkt erzeugt, sondern dynamisch, wenn sie gebraucht werden.

Anbei ein Beispiel für deine Problematik!
(Mit D6 erstellt)

Hier wird das Hauptform als einziges direkt erstellt und dann Form1 dynamisch vom MainForm (nach deiner Vorgabe).

Form1 erzeugt dann Form2 erst beim Button1.click und weißt sich selber als Target zu, bevor Form2 angezeigt wird.

Form2 hat dann das TargetForm vom Typ Form1 und kann dann auf das Label1 zugreifen.

Anmerkung:
Das Beispiel verwendet keine Propertys für das Target oder gar (saubere) Setter-Funktionen auf Form1, damit nicht direkt auf das Label zugegriffen wird....