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
