Immer mehrere CheckBoxen = true

[Hawkeye219]

Hallo Jens,

ich würde ja eher eine TRadioGroup mit 3 Elementen und passender Beschriftung wählen, aber dennoch:

Delphi-Quellcode:

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  CheckBox1.OnClick := nil;
  CheckBox2.OnClick := nil;
  CheckBox3.OnClick := nil;

  CheckBox1.Checked := (Sender <> CheckBox1);
  CheckBox1.Enabled := CheckBox1.Checked;

  CheckBox2.Checked := (Sender <> CheckBox2);
  CheckBox2.Enabled := CheckBox2.Checked;

  CheckBox3.Checked := (Sender <> CheckBox3);
  CheckBox3.Enabled := CheckBox3.Checked;

  CheckBox1.OnClick := CheckBoxClick;
  CheckBox2.OnClick := CheckBoxClick;
  CheckBox3.OnClick := CheckBoxClick;
end;

Diese Routine musst du nur mit dem OnClick-Ereignis aller Checkboxen verbinden.

Gruß Hawkeye