CheckBox anklicken

[Stevie]

Sharky hat recht. Bei einer Auswahl genau eines Elements sollte man eine RadioGroup nehmen.

Hier aber der Code für die CheckBox-Lösung;

Delphi-Quellcode:

procedure TForm1.CheckBoxClick(Sender: TObject);
var
  Checked: Boolean;
begin
  (Sender as TCheckBox).OnClick := nil;
  Checked := (Sender as TCheckBox).Checked;
  CheckBox1.Checked := False;
  CheckBox2.Checked := False;
  CheckBox3.Checked := False;
  (Sender as TCheckBox).Checked := Checked;
  (Sender as TCheckBox).OnClick := CheckBoxClick;
end;

Diese Methode allen CheckBoxen zuweisen