genau nach deiner Definition/Beschreibung des ersten Posts,
Delphi-Quellcode:
Procedure Checkbox1_5click(Sender: TObject);
begin
CheckBox1.Enabled := CheckBox5.Checked;
CheckBox2.Enabled := CheckBox5.Checked;
CheckBox3.Enabled := CheckBox5.Checked;
CheckBox4.Enabled := CheckBox5.Checked;
CheckBox5.Enabled := CheckBox1.Checked or CheckBox2.Checked
or CheckBox3.Checked or CheckBox4.Checked;
end;
mit einem/zwei Problemen ... ist nix gewählt (checked), dann sind alle CheckBoxen aus (disabled)
und man kann niemals etwas anklicken und somit etwas enablen.
und es wiederspricht auch deinem Beispielcode dieses Posts
oder meinstest du es so?
- ist irgendwas aus 1 - 4 gewählt, dann 5 aus
- ist 5 gewählt, dann 1 - 4 aus
Delphi-Quellcode:
Procedure Checkbox1_5click(Sender: TObject);
begin
CheckBox1.Enabled := not CheckBox5.Checked;
CheckBox2.Enabled := not CheckBox5.Checked;
CheckBox3.Enabled := not CheckBox5.Checked;
CheckBox4.Enabled := not CheckBox5.Checked;
CheckBox5.Enabled := not (CheckBox1.Checked or CheckBox2.Checked
or CheckBox3.Checked or CheckBox4.Checked);
end;