FMX Form in einen anderen einbetten

[TigerLilly]

Ich möchte einen Form in einen anderen einbetten, bzw dort in TPanel oder TLayout.
In der VCL hat das problemlos funktioniert - unter FMX geht das wohl nicht so einfach.

Ich habe die Variante gefunden, dass die Komponenten des 2ten Forms als Parent den neuen Form erhalten. Aber dann bleibt immer noch der leere Form übrig.

Weiß jemand eine elegante Methode, wie man einen ganzen FMX Form in ein TLayout eines anderen Forms einbetten kann?

Danke für jede Antwort!

[Der schöne Günther]

Warum Formular und nicht Frame?

[TigerLilly]

Weil ich Frames nicht mag. :-/

[Rollo62]

Probier mal das hier :

Delphi-Quellcode:

// AForm is newly created externally and then can be 
//embedded to a control, such as a panel or a tabsheet.
procedure Form_Embed_To(const AForm:TCustomForm; const AParent:TControl);
var
  chld: TFmxObject;
  I: Integer;
begin
  if Assigned( AParent ) then
  begin
      AParent.BeginUpdate;

      I := 0;
      while AForm.ChildrenCount > 0 do
      begin
        chld := AForm.Children[I];
        if chld.Name <> '' then
          AForm.Children[I].Parent := AParent
        else
          Inc(I);
      end;

      AParent.EndUpdate;
  end;
end;

Rollo

[TigerLilly]

Ja, das geht so - danke. Ich mach es mit einem übergeordneten TLayout, da muss man dann nur eines zuweisen.
Aber der Form wird trotzdem noch angezeigt - nur ohne Inhalt. Und Owner der Controls ist immer noch der Form.

[TigerLilly]

Wenn der Form auf transparent + ohne Rahmen gesetzt wird, schaut das noch besser aus.

Danke, Rollo62!