If Problem

[Poring]

Hallo,
ich wollte folgendes machen:

Delphi-Quellcode:

if (Checkbox1.Checked=True) then (Panel1.Color:=clred) or if (Checkbox2.Checked=True) then (Panel1.Color:=clBtnFace) else begin

Dies geht jedoch nicht. Was könnte ich machen?

[Dax]

Delphi-Quellcode:

if (Checkbox1.Checked=True) then Panel1.Color:=clred else if (Checkbox2.Checked=True) then Panel1.Color:=clBtnFace else begin [...]

[Poring]

Danke :)

[DeddyH]

Mach bitte keinen Vergleich auf True.

[Sharky]

Hai Poring,

was soll denn passieren wenn mehrere Checkboxen "checked" sind? ;-)
Je nach vorhaben sind TCheckBoxen wohl nicht der optimale Lösungsansatz. Besser wäre wohl eine RadioListGroup

[Poring]

Delphi-Quellcode:

if (Checkbox1.Checked=True) then Panel1.Color:=clred else if (Checkbox2.Checked=True) then Panel1.Color:=clBtnFace else begin

Genau so wollte ich es ja. Das wenn die eine checkbox makiert ist die farbe rot wird, oder wenn die 2 checkbox makiert ist die farbe wieder grau wird, und wenn beides nicht ist dann...
:)

[mkinzler]

Wie DeddyH gesagt hat solltest du

Delphi-Quellcode:

if Checkbox1.Checked

schreiben

[Poring]

was macht dies für einen unterschied?

[mkinzler]

.Checked ist schon ein Boolean. außerdem ist False als 0 und True als <> 0 definiert ist.

[Matze]

Zitat:

Zitat von Poring

was macht dies für einen unterschied?

Genaueres findest du hier: Über den Umgang mit Boolean.

[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;

[Poring]

Ok danke euch! Wünschte so viel antworten würd ich bei jeder Frage bekommen *g*