如何隐藏命令按钮???

[mjlqc]

表单上现有几排命令按钮
button1 button2 button3......button30 ,在程序中想暂时将它们隐藏,过一会,再恢复,请问是否有简便的方法?

[OO_is_just_P]

最好隐藏、恢复都写成函数。不要懒。

[esu]

with Form1 do
for i:=0 to ControlCount-1 do
if (Controls[i] is Tbutton) then (Controls[i] as Tbutton).Visible:=False;

恢复
with Form1 do
for i:=0 to ControlCount-1 do
if (Controls[i] is Tbutton) then (Controls[i] as Tbutton).Visible:=True;

[timgreen]

.visable:=true;

[mjlqc]

谢谢,还有更懒的办法吗,函数代码量尽可能少?

[mjlqc]

to : esu

按你的办法,窗体上所有的命令按钮都隐藏了,我的本意是只把有规律的同组命令按钮隐藏掉.

[mj_hc]

可以定义一个Tbutton类型的数组，初始化时把这些botton控件放进数组去，以后就不用一个个操作了。

[lean77]

.Hide .Show

[gboy2003]

同意楼上的

[江山易改]

for i:=0 to ControlCount-1 do
begin
if Components[i] is Tbutton then
Components[i].Visible := False ;
end ;

for i:=0 to ControlCount-1 do
begin
if Components[i] is Tbutton then
Components[i].Visible := true ;
end ;

[江山易改]

for i:=0 to ControlCount-1 do
begin
if Components[i] is Tbutton then
Tbutton(Components[i]).Visible := False ;
end ;

for i:=0 to ControlCount-1 do
begin
if Components[i] is Tbutton then
Tbutton(Components[i]).Visible := true ;
end ;

[mrtxc]

把你的同组的Button放在一个panel中，然后：
for i:=0 to panel1.ControlCount-1 do
begin
if Components[i] is Tbutton then
Tbutton(Components[i]).Visible := False ;
end ;

for i:=0 to Panel1.ControlCount-1 do
begin
if Components[i] is Tbutton then
Tbutton(Components[i]).Visible := true ;
end ;

[mjlqc]

谢谢 以上各位!
panel 换成groupbox