suche einfache Lösung für Verzweigung

[Redeemer]

Ergibt vom Bedienkonzept wenig Sinn.

Delphi-Quellcode:

var
  Checks: Integer;
  Checkbox: TCheckbox;
  Checkboxes: array[0..4] of TCheckbox = (Checkbox1, Checkbox2, Checkbox3, Checkbox4, Checkbox5);
begin
  // Häkchen zählen
  Checks := 0;
  for Checkbox in Checkboxes do
  if Checkbox.Checked then
  Inc(Checks);
  // Andere deaktivieren
  for Checkbox in Checkboxes do
  Checkbox.Enabled := (Checks = 2) and not Checkbox.Checked;
  // Zeug tun
end;