0

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 になります。

望ましい結果を得るにはどうすればよいですか?

4

1 に答える 1

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;
于 2014-07-08T10:53:59.123 に答える