FMX Form in einen anderen einbetten

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

[TigerLilly]

Hmmm. Wenn ich im Designer den Rahmen auf None setze + Transparency auf true, klappt das ganz ohne flackern.
Wenn ich das erst im OnCreate des einzubettenden Forms mache oder Create überschreibe, dann sehe ich kurz den form + den rahmen und damit flackert das.

OnShow + AfterConstruction helfen auch nicht.

Wer hat eine Idee? Danke schon im Voraus!

[Harry Stahl]

Wenn die Dummy-Form auf Visible = false steht, sollte sie gar nicht zu sehen sein, wenn Du sie erzeugst (und nicht anzeigst).

Wenn Du aus irgendeinem Grunde noch das ShowEvent der Dummy-Form (einmal) brauchst, kannst Du im Oncreate-Event der Dummy-Form deren Position auf einen Minus-Breich setzen (Left := -10000), dann ist sie im nicht sichtbaren Bereich.

Noch ein Hinweis: Auch wenn Du Frames nicht magst, kannst Du sie hinsichtlich der Einbettung in eine Form auch wie eine (VCL-) Form verwenden, denn das TFrame hat eine Parent-Eigenschaft.