CheckBox на Delphi

[yaxx]

Скажите пожалуйста, как сделать так, чтобы если включен один из четырех чекбоксов, и я включаю еще один, предыдущий автоматически выключался?
Вот например четыре чекбокса:
ч1
ч2
ч3
ч4
И если у меня включен ч1, и я включаю ч2 , то как сделать, чтобы при включении ч2 отключался ч1?

[DIgorevich]

Для этого используется компонент Radiogroup

[vasek123]

Сообщение от yaxx

Скажите пожалуйста, как сделать так, чтобы если включен один из четырех чекбоксов, и я включаю еще один, предыдущий автоматически выключался?
Вот например четыре чекбокса:
ч1
ч2
ч3
ч4
И если у меня включен ч1, и я включаю ч2 , то как сделать, чтобы при включении ч2 отключался ч1?

Поставь на TRadioGroup, проще выйдет.

procedure TForm1.Panel1Click(Sender: TObject);
begin
  if CheckBox1.Checked=true then
  begin
    CheckBox2.Checked:=false;
    CheckBox3.Checked:=false;
    CheckBox4.Checked:=false;
  end;
  if CheckBox2.Checked=true then
  begin
    CheckBox1.Checked:=false;
    CheckBox3.Checked:=false;
    CheckBox4.Checked:=false;
  end;
  if CheckBox3.Checked=true then
  begin
    CheckBox1.Checked:=false;
    CheckBox2.Checked:=false;
    CheckBox4.Checked:=false;
  end
  else
  begin
    CheckBox4.Checked:=true;
    CheckBox2.Checked:=false;
    CheckBox3.Checked:=false;
    CheckBox1.Checked:=false;
  end;
end;