Wie auf Komponenten und Ereignisse im eigebettenten Formular zugreifen?

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

Vielen Dank.