var
  i:integer;
begin
for i:=0 to componentcount -1do
 if components[i] is Tcombobox then
   tcombobox(components[i]).text:='';
end;
其他都一样了!

解决方案 »

  1.   

    ComboBox的Checked?没这个东西吧其它的同意楼上的
      

  2.   

     thygw(注册表错误) 只是告诉你们方法,难道他这个不知道吗。原理不是一样,照上面的改一下就行了。
    var
      i:integer;
    begin
          FOR  i:=0 to  Controlcount-1 do
          begin
          if controls[i].classname='TCheckbox' then
          begin
          if not (controls[i] as TCheckbox).checked then
          //这里加不是TRUE后,你要干什么        
          end; 
          end;  
    end;