如何设置button的属性，将几个button该成控件数组

Question

你可以这样声明啊
var arr : array[0..8] of TButton;
不过要动态创建了。

Answer 1

我已经有10个BUTTON了，我想把这些BUTTON批处理，所以要把他们设置成同一数组，不能动态创建

Answer 2

TLabel(FindComponent('Button'+IntToStr(i))).Caption:='Button'+IntToStr(i);

Answer 3

TLabel(FindComponent('Button'+IntToStr(i))).Caption:='Button'+IntToStr(i);
是一种不错的方法，这样只要按照一定规则button1,...butoon100等命名就可以了，如果不想按照规则命名，只有把控件组放入一个TPanel再中查找控件，如果是BUTTON则处理

Answer 4

不用这么麻烦，button不是有一个tag属性吗?用它区分就可以啦，
如
在button1.onclick事件中
case  Tbutton(sender).tag of
1:
showmessage('Button1');
2:
showmessage('button2');
3:
showmessage('button3');
end;

Answer 5

把button放到一个panel上
再设置tag
用panel.controls.count进行迭代,
panel.controls[i]表示上面的控件
再把它 as TButton, 获取tag值,加以处理

Answer 6

我想对button1-10用一公共事件click，对所有的button编辑，不知道该怎么写，才能得到我所按的按钮的tag值
我用
procedure ButtonClick(Sender: TObject);
begin
 i:=Tbutton(sender).tag 
 showmessage(i);
end;
好象不行啊