＋设为首页 ＋添加到收藏夹
有变量ｎ，怎么样动态的建ｎ个ｌａｂｅｌ？
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
lb:array of TLabel;
begin
setlength(lb,n);
for i:=0 to n do
begin
lb[i]:=TLabel.create(self);
lb[i].parent:=form1;
lb[i].left:=;
lb[i].top:=;
lb[i].caption:=;
end;
end;
同意天涯浪子的
const
n:integer=5;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
lb:array of TLabel;
begin
setlength(lb,n);
for i:=0 to n-1 do
begin
lb[i]:=TLabel.Create(self);
lb[i].Parent:=form1;
lb[i].Left:=12+i*50;
lb[i].:=12+i*50;
lb[i].Caption:=label+inttostr(i);
end;
end;
