Question

delphi动态创建标签问题

var
n, i:integer;
lb:TLabel;
begin
n:=3;
for i:=1 to n do
begin
lb:=TLabel.Create(self);
with lb do
begin
Parent :=ScrollBox1;
Caption :='lb'+inttostr(i);
Top :=i*lb.Height-(n+2);
end;
end;
end;
在以上程序中， 分别为动态创建的bl1、bl2、bl3的tag属性分别赋值为0、1、2的句子怎么写？

Answer 1

var
n, i: integer;
lbArr: array of TLabel;
begin
n:=3;
setlength(lbArr, n);
for i:=0 to n-1 do
begin
lbArr[i] :=TLabel.Create(self);
with lbArr[i] do
begin
Parent :=ScrollBox1;
Caption :='lb'+inttostr(i);
Top :=i*lb.Height-(n+2);
tag := i;
end;
end;
end;