Question

DELPHI中如何通过编程自动限制复选框checkbox的可选择数量呢

DELPHI中如何通过编程自动限制复选框checkbox的可选择数量呢？（比如一共有6个复选框，只允许选择3个，超过3个就没法选择了），我是刚学的菜鸟哦，如果有大大肯指教的话如果能详细说下小弟感激不尽！
checkbox没有onchange事件哦，如这张图，比如我点右边单选框的1时就只能选1个复选框，选4时就可以选4个，怎么实现呢？最好能给出代码哦，谢谢啦！！

Answer 1

你可以设置一个全局的整形变量i，当复选框被选中的时候，i+1.当取消选中的时候i-1。当i超过3的时候，把还未选中的复选框设为不可用，这样就好了。这些事件可以在复选框的onClick中写。 （之前写错了。。改下）
看了你这个图，你可以在选中右边的数字后修改对应全局变量i的值，也是onClick事件里。思路就是这样，剩下就是代码的实现了。

Answer 2

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