DELPHI中如何通过编程自动限制复选框数量

等待救赎

比如一共有6个复选框，只允许选择3个，超过3个就没法选择了，我是刚学的菜鸟哦，希望大大们能详细说下小弟感激不尽！下面是百度的代码，为什么变量j一点击组件直接变成6了？ var I,J:integer;for i:=0 to  self.ComponentCount-1 do if components[i] is TCheckBox then if TCheckBox(Sender).checked then inc(j);if j<=3 then TcheckBox(Sender).checked:=true else TcheckBox(Sender).checked:=false

G0398

self.ComponentCount-1  是窗体上的控件总数吧   把它改成6

等待救赎

G0398 发表于 2012-3-11 12:13

                               
登录/注册后可看大图

self.ComponentCount-1  是窗体上的控件总数吧   把它改成6

后面有if排除别的不成吗

G0398

等待救赎 发表于 2012-3-11 14:08

                               
登录/注册后可看大图

后面有if排除别的不成吗

delphi 中的控件数组我不会   你百度下【delphi控件数组】

prinsun

把所有的TCheckBox的Click事件都挂钩到下面这个处理函数即可：

1. procedure TForm1.CheckBoxChecked(Sender: TObject);
   
2. var
   
3.   checkedCount, i: Integer;
   
4. begin
   
5.   checkedCount := 0;
   
6.   for i := 0 to Self.ComponentCount - 1 do
   
7.     if (Self.Components[i] is TCheckBox)
   
8.      and TCheckBox(Self.Components[i]).Checked then
   
9.       Inc(checkedCount);
   
10. 
    
11.   if TCheckBox(Sender).Checked and (checkedCount > 3) then
    
12.     TCheckBox(Sender).Checked := False;
    
13. 
    
14. end;

复制代码

11年__那些事儿

   j  没有初始化吧？  应该是每次运行值都不一样，你试试！！！！！

刺客信条

长长见识。。。。。。。。