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

Delphi-Quellcode:

Form2.Parent:= Form1;

usw. versucht leider ohne Erfolg. :cry:

[pesi]

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

...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]

Delphi-Quellcode:

NewForm:= NewFormClass.Create(Form1);

funktioniert aber auch nicht!

[Olli73]

Zitat:

Zitat von needatip (Beitrag 1392083)

Delphi-Quellcode:

NewForm:= NewFormClass.Create(Form1);

funktioniert aber auch nicht!

Also wenn schon, dann:

Delphi-Quellcode:

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:

Zitat von needatip (Beitrag 1392129)

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....

[Fukiszo]

kann man per vcl code nicht messages senden und empfangen? (msg an parent bzw child?)
oder per notify events auslösen lassen?

[needatip]

Das ganze hat folgenden Hintergrund. Ich habe auf meinem MainForm einen VirtualStringTree als
Navigationskomponente für die einzelnen Formulare die halt in ein Panel(Containerpanel) geladen werden.

Delphi-Quellcode:

procedure TfmMain.VSTClick(Sender: TObject);
var
  NewFormClass: TFormClass;
  NewForm: TForm;
  NodeData: PTreeData;
  Node: PVirtualNode;
begin
  Node := VST.FocusedNode;
  if not Assigned(Node) then
    Exit;
  NodeData := VST.GetNodeData(Node);

  case NodeData.FormIndex of
    0:
      NewFormClass := TfmForm1;
    1:
      NewFormClass := TfmForm2;
    2:
      NewFormClass := TfmForm3;
    3:
      NewFormClass := TfmForm4;
 ...

  else
    NewFormClass := nil;
  end;
  begin
    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;
end;

Wenn ich nun in einem Formular das im Containerpanel geladen wird ein weiteres Formular bzw Dialog aufrufe (mit FormX.Show)
dann kann ich nicht auf die Komponenten/Proceduren etc. auf dem Formular zugreifen.

[needatip]

Hallo HolgerX.
Habe es genau nach deinem Beispiel hingebastelt.
Funktioniert super.:thumb:

Vielen Dank.:-D