Anordnung von Align=Top Controls in Firemonkey

[Codehunter]

Zitat von Sir Rufo:

Das wäre ein auch ein Wunsch bzgl. VCL/FMX, dass das Alignment anhand der Z-Order festgemacht wäre und nicht wie jetzt an irgendeiner XY Position

Ausgehend von der Annahme, dass die Z-Order zumindest die Reihenfolge im Container Control.Children beeinflusst, habe ich mal folgende Routine gestrickt:

Delphi-Quellcode:

procedure TForm1.AlignChilds(AParent: TControl);
var
  C1, C2: TControl;
  I, J: Integer;
  O: TFmxObject;
  L: TList<TControl>;
begin
  L:= TList<TControl>.Create;
  try
    for I := 0 to AParent.ChildrenCount - 1 do begin
      O:= AParent.Children[I];
      if O.InheritsFrom(TControl) then begin
        L.Add(TControl(O));
      end;
    end;
    for I := 0 to L.Count - 1 do begin
      if I > 0 then begin
        C1:= L[I-1];
        C2:= L[I];
        C2.Position.Y:= C1.Position.Y + C1.Height + C1.Margins.Top + C1.Margins.Bottom;
      end;
    end;
  finally
    FreeAndNil(L);
  end;
end;

Zwei Schleifen, weil ich mir nicht sicher war ob alle Control.Children per se auch immer TControls sein müssen. Ich glaube es eigentlich nicht.

Allerdings, warum sollte es auch anders sein, beeinflusst die Position.Y-Eigenschaft auch noch die Reihenfolge im Control.Children. Dadurch funktioniert das nur im ersten Druchlauf.

Ich muss sagen, ich habe mir lange Zeit gelassen um überhaupt einen Blick auf FMX und mobile Entwicklung zu werfen. Aber wenn ich sehe dass selbst nach mehreren Jahren FMX noch solche Probleme hat, dann fass ich mich wirklich an den Kopf