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