把窗体中所有的Button的Enabled置为False

最新推荐文章于 2020-10-10 13:20:21 发布

原创最新推荐文章于 2020-10-10 13:20:21 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#button #components

类类型同时被 2 个专栏收录

34 篇文章

订阅专栏

控件

20 篇文章

订阅专栏

本文介绍了如何使用Delphi编程语言，通过编写一个简单的事件处理程序，实现批量将窗体中所有Button控件的Enabled属性置为False的功能。通过遍历控件集合并检查每个控件是否为Button类型，从而达到批量操作的目的。

把窗体中所有的Button的Enabled置为False

procedure TForm1.FormCreate(Sender: TObject);
var index:integer;
begin
For Index:=0 to ControlCount-1 do
 if Components[Index] is TButton then
  begin
   (Components[Index] As TButton).enabled:=False;
  end;
end;
end.

//设置窗体中所有Button的Enabled为False
procedure TForm2.Button3Click(Sender: TObject);
var 
i:integer;
begin
for i:=0 to self.ControlCount-1 do 
 if self.Controls[i] is TButton then 
   TButton(self.Controls[i]).Enabled:=False;
end;