checkbox能否像radiobutton一样，一组只能选一个？

Question

在其OnClick事件中
 if CheckBox1.Checked then
  begin 
    CheckBox2.Checked:=False;
    CheckBox3.Checked:=False;
    CheckBox4.Checked:=False;
      ...
  end;

Answer 1

procedure TFormmljs.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
  begin
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    checkbox4.Checked:=false;
            .
            .
  end;
end;

Answer 2

procedure TFormmljs.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
  begin
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    checkbox4.Checked:=false;
            .
            .
  end;
end;

Answer 3

写它的OnClick事件
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox2.Checked:=false;
  checkbox3.Checked:=false;
  checkbox4.Checked:=false;
      ...
  TCheckBox(Sender).Check:=True;
end;
把所有的CheckBox的OnClick事件都设为CheckBox1Click,这样比较爽.
BTW:你为什么不用RadioButton呢?

Answer 4

不好意思，写错了,应该是Checked ^_^!

Answer 5

不好意思，写错了,应该是Checked ^_^!