Delphi XE6 firemonkey 组件在运行时添加时的对齐问题答案

【问题标题】：Delphi XE6 firemonkey component alignment problems when added at runtimeDelphi XE6 firemonkey 组件在运行时添加时的对齐问题
【发布时间】：2014-08-28 20:48:10
【问题描述】：

我希望在我的 iOS 应用中动态添加 5 个 TLable。

喜欢这个

Procedure Form1.FormCreate(Sender: TObject)
var
  I: Integer;
begin
  for I := 1 to 5 do
  begin
    with TLabel.Create(Self) do
    begin
      Parent := self;
      Align := TAlignLayout.Top;
      Height := 50;
      Text := IntToStr(I);
    end;
  end;
end;

我认为订单是 12345，但我得到的是 15432。

我可以做些什么来获得想要的结果？

【问题讨论】：

标签： ios delphi alignment firemonkey delphi-xe6

【解决方案1】：

你必须给对齐算法一个机会来做你想做的事。

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 5 do
  begin
    with TLabel.Create(Self) do
    begin
      Parent := self;
      Align := TAlignLayout.alTop;
      Height := 50;
      Position.Y := I*Height; //add this line
      Text := IntToStr(I);
    end;
  end;
end;

【讨论】：