如何在delphi中使用带变量的bitbtn?

Question

用控件数组吧.
var
  btn:array[1..100] of TBitBtn;
...

Answer 1

var bitbtn: TBitbtn;
begin
  bitbtn ：= TBitbtn.create(self);
  bitbtn.name := 'bitbtn' + inttostr(count);
  inc(count);
  bitbtn.tag := count;
end;

Answer 2

var
  btn:array[1..100] of TBitBtn;
begin
  ...
  btn[n]...
  ...
end;

Answer 3

for i:= 1 to 100 do
begin
  btn[i] := TBitBtn.Create(self);
  btn[i].Parent := self;
  btn[i].OnClick := btnClick;
end;

Answer 4

type 
   TGbitbtn = array [1..99] of Tbitbtn;  //放在type form1=。。臆var 
  Gbitbtn :Tgbitbtn;   //放在var form1后  gbitbtn[1] := bitbtn1;  //放在form.creat过程中
  .....
  gbitbtn[100] := botbtn100;
以后你就可以调用了