5 Checkboxen checken nicht richtig!!!

[himitsu]

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;