如何循环控制多个Button?

Question

必须用数组实现，至于数组，你可给他赋已有的button，也可动态创建。
ButtonArray[1]:=Button1;
ButtonArray[2]:=TButton.Create;
var ButtonArray:Array [1..10] of TButton;
....
begin
   For i:=1 to 10 do
   begin
      ButtonArray[i].Enabled:=False;
   end;
end;

Answer 1

procedure Tform1.initall;
var i:integer;
begin 
  for i:=0 to componentcount-1 do
  begin
    if (components[i] is Tbutton) and (components[i].tag=yourchose) then
      (components[i] as Tbutton).enabled:=true;
  end;
end;

Answer 2

首先在button的名字上做点手脚，譬如写成btn1，btn2，btn10。
然后代码写为：
for i := 1 to 10 do
begin
  Tbutton(findcomponent('button' + inttostr(i))).enable := true;
end;

Answer 3

控件数组，或者用components数组
学习学习中……