Ios 在运行时添加Delphi XE6 firemonkey组件时出现对齐问题
我想在我的iOS应用程序中动态添加5个TLable 像这样Ios 在运行时添加Delphi XE6 firemonkey组件时出现对齐问题,ios,delphi,alignment,firemonkey,delphi-xe6,Ios,Delphi,Alignment,Firemonkey,Delphi Xe6,我想在我的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;
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
要获得所需的结果,我可以做些什么?您必须给对齐算法一个机会来完成您想要的操作
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;