假如我想把Button1、Button2、Button3、Button4的left都设为20
怎么用循环实现？

[此贴子已经被作者于2007-8-19 23:53:18编辑过]

放到一个Tbutton数组里，然后用循环来实现

怎么实现啊，能给个例子吗

如：我在界面上放了4个按钮，我要把这4个按钮的left属性都设为20，我可以这么做：
（1）在窗体的var下面放如下声明：
btn_array:array[1..4] of TButton;
（2）在窗体的oncreate事件里添加如下代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
btn_array[1]:=button1;
btn_array[2]:=button2;
btn_array[3]:=button3;
btn_array[4]:=button4;
end;
（3）在窗体的onshow事件里添加如下代码：
procedure TForm1.FormShow(Sender: TObject);
var
i:integer;
begin
for i:= 1 to 4 do
begin
btn_array[i].Left:=20;
end;
end;

谢谢你了

var
I: Integer;
begin
for I:= 0 to ControlCount - 1 do
begin
if Controls[I] is TButton then
TButton(Controls[I]).Left:= 20;;
end;
end;

呵呵,方法不唯一.

最好放在一个panel上面
然后通过ysp_1984的方法使用要好点。

可不可以用Button.visable来控制

Vissable怎么能控件，Tag到是还可以。