怎么动态生成一个label数组，立即给分

Question

var a : array[0..9] of TLabel
begin
  for i:=0 to 9 do begin
    a[i] := TLabel.Create(self);
    a[i].parent := self;
    a[i].left := i*5;
    ...
  end;
end;

Answer 1

需要写那些属性？一下代码在鼠标点击事件中，一点就死：（
var lab:array of tlabel;
    i,n:integer;
begin
        setlength(lab,3);
        n:=0;
        for i:=0 to 3 do
         begin
          lab[i]:=tlabel.Create(self);
          n:=n+10;
          lab[i].Parent :=self;
          lab[i].Caption := 'lab'+inttostr(i);
          lab[i].Top :=n;
          lab[i].height:=10;
          lab[i].Left :=10;
          lab[i].Width :=20;
          lab[i].Visible :=true;
         end;
end;

Answer 2

明白了，for i:=0 to 2
我k&f!!!

Answer 3

lab[i].Parent :=self;不能用self，要指明容器

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  lblArray :array of TLabel ;
  i:integer;
begin
   SetLength (lblArray,10);
   for i:=0 to 9 do
   begin
      lblArray [i]:=TLabel .Create(self);
      lblArray [i].Parent  :=Panel1 ;
      lblArray [i].Left    :=20;
      lblArray [i].Caption :='DynamicLabel '+IntToStr(i+1);      if i = 0 then lblArray [i].Top :=20
      else begin
        lblArray[i].Top:=lblArray[i-1].Top+lblArray[i].Height+12;
      end;
   end;
end;