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事件都挂钩到下面这个处理函数即可：

procedure TForm1.CheckBoxChecked(Sender: TObject);
var
  checkedCount, i: Integer;
begin
  checkedCount := 0;
  for i := 0 to Self.ComponentCount - 1 do
    if (Self.Components[i] is TCheckBox)
     and TCheckBox(Self.Components[i]).Checked then
      Inc(checkedCount);

  if TCheckBox(Sender).Checked and (checkedCount > 3) then
    TCheckBox(Sender).Checked := False;

end;

11年__那些事儿

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

刺客信条

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