If Problem

[Sharky]

Hai Poring,

nur mal so aus Spass eine andere Lösung

Delphi-Quellcode:

var
  CheckBoxState: Byte;

procedure PannelFarbe(aPanel: TPanel; aCode: Byte);
var
  farbe: TColor;
begin
  case aCode of
    0: farbe := clBtnFace;
    1: farbe := clred;
    2: farbe := clgreen;
    3: farbe := clblue;
    4: farbe := clMaroon;
    5: farbe := clDkGray;
    6: farbe := clLime;
    7: farbe := clPurple;
  end;
  aPanel.Color := farbe;
end;

procedure TDemo_Form.AlleCBOnClick(Sender: TObject);
begin
  if (Sender as TCheckBox).Checked then
    CheckBoxState := CheckBoxState + (Sender as TCheckBox).Tag
  else
    CheckBoxState := CheckBoxState - (Sender as TCheckBox).Tag;
  PannelFarbe(Panel1, CheckBoxState);
end;

procedure TDemo_Form.FormCreate(Sender: TObject);
begin
  CheckBoxState := 0;
  CheckBox1.Tag := 1; // Kann man natürlich auch im OI setzen.
  CheckBox2.Tag := 2;
  CheckBox3.Tag := 4;
  PannelFarbe(Panel1, CheckBoxState);
end;