本文整理自网络,侵删。
procedure TForm1.Button4Click(Sender: TObject);vari:integer;beginfor i := 0 to self.ControlCount - 1 do if Controls[i] is TButton then with TButton(Controls[i]) do begin Enabled:=True end;end;
相关阅读 >>
Delphi firedac tfdconnection连接mysql数据库
Delphi 在statusbar1.panels上显示日期时间星期
pos、ansipos、fillchar在Delphi2010中unicode的问题
更多相关阅读请进入《Delphi》频道 >>