同类控件的统一操作（以TCHECKBOX为例）

https://www.cnblogs.com/gaodu2003/archive/2008/12/15/1355355.html

Procedure UnCheck;

var

i: integer;

begin

for i := 0 to GroupBox1.ControlCount-1 do
    begin
    if GroupBox1.Controls[i].ClassName = 'TCheckBox' then
      begin
      TCheckBox(GroupBox1.Controls[i]).Checked := false;
      end;
    end;
end;

特别说明：如果是Form窗口中的元素，可直接使用Controls；否则，需要加上控件的窗口名称，如GroupBox1等。

巴特西

同类控件的统一操作（以TCHECKBOX为例）

https://www.cnblogs.com/gaodu2003/archive/2008/12/15/1355355.html

最新文章

热门文章