5 Checkboxen checken nicht richtig!!!

[TBx]

Verwende eine OnClick-Procedure für alle 5 Checkboxen:

Delphi-Quellcode:

Procedure Checkbox5click(Sender: TObject);
begin 
  Checkbox5.enabled:= not (Checkbox1.checked or Checkbox2.checked or Checkbox3.checked or Checkbox4.checked);
  Checkbox1.enabled:= not Checkbox5.checked; 
  Checkbox2.enabled:= not Checkbox5.checked;
  Checkbox3.enabled:= not Checkbox5.checked;
  Checkbox4.enabled:= not Checkbox5.checked;
end;

@himitsu: nö, ist falsch rum
[Edit] vergiss meinen Einwand, ich hätte Deinen editierten Post auch bis zum Ende lesen sollen [/edit]