谁有控件数组的CODE，给我一份学习学习

Question

hehe,我来关注，我刚才搜索了一下有许多的帖子，代码都有，你可以去看看~~

Answer 1

var
Bu:array[1..10] of Tbutton
begin
 For i:=0 to 10 do
  Begin 
   Bu[i].create(Self);
    Bu.left:=i*10;
    Bu.height:=I*10;
  end;
  For i:=0 to 10 do
   Bu[i].freeEnd;

Answer 2

上面的有错误应该是:
var
i:Integer;
Bu:array[1..10] of Tbutton
begin
For i:=0 to 10 do
Begin 
Bu[i]:=TButton.Create(Self);
Bu.left:=i*10;
Bu.top:=I*10;
end;

Answer 3

动态的例子：var
ArraryButton: Array of TButton
i:Integer;
Begin
  i:= 3;
  SetLength(ArrayButton, i)
...SetLength和VB中的ReDim是一样的。但记住动态控件数组下标只能从0开始。
若要给控件数组赋事件，则需要先声明一个形如TNotifyEvent的Procedure，
把该Procedure的指针给刚刚生成的控件事件，而不是象VB中那样根据Index
判断。...
  ArrayButton[0] := TButton.Create(Self);
  ArrayButton[0].OnClick := MyProcedureName;//MyProcedure is a User-//Defined Procedure like this: MyProcedure(Sender :TObject)...

Answer 4

动态的例子：var
ArraryButton: Array of TButton
i:Integer;
Begin
  i:= 3;
  SetLength(ArrayButton, i)
...SetLength和VB中的ReDim是一样的。但记住动态控件数组下标只能从0开始。
若要给控件数组赋事件，则需要先声明一个形如TNotifyEvent的Procedure，
把该Procedure的指针给刚刚生成的控件事件，而不是象VB中那样根据Index
判断。...
  ArrayButton[0] := TButton.Create(Self);
  ArrayButton[0].OnClick := MyProcedureName;//MyProcedure is a User-//Defined Procedure like this: MyProcedure(Sender :TObject)...