checkbox 如何实现单选效果？ 在线等，马上结贴！！！

Question

如题

Answer 1

要单选可以用单选按钮RadioButton1硬要checkbox 实现单选也很容易。比如有两个checkbox ，假设为checkbox1，checkbox2，你要实现党选择checkbox1时，就不能选checkbox2，选择checkbox2时，就不能选checkbox1可在checkbox1的click事件这样写：procedure TForm1.CheckBox1Click(Sender: TObject);
begincheckbox2.Checked:=false;end;同时在checkbox2的click事件这样写：procedure TForm1.CheckBox2Click(Sender: TObject);
begincheckbox1.Checked:=false;end;

Answer 2

onclick 里，调用把所有checkbox.checked:=false的过程.

Answer 3

测试了一下，以上写法还有点缺陷，应该这样写procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if  checkbox1.Checked=true  then
checkbox2.Checked:=false;
end;procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if  checkbox2.Checked=true then
checkbox1.Checked:=false;
end;

Answer 4

同理，举一反三，多个checkbox也可以实现单选的