IF- Anweisungsblock

[Störtebeker]

Hi,

irgendwie stehe ich gerade mal so einfach auf dem Schlauch bei einer IF - Anweisung:

Code:

Delphi-Quellcode:

procedure TForm3.CheckBox26Click(Sender: TObject);
begin
if checkbox26.checked = false then begin
Form1.Edit1.visible:=false; 
Form1.Button1.Visible:=false;
end
else
Form1.Edit1.Visible:=true;
Form1.Button1.Visible:=true;
end;

Problem: Es wird immer nur die erste Anweisung bearbeitet. Also um den Button wird sich nicht gekümmert. Wie muss ich das machen. Wahrscheinlich in einen Block setzen, oder? Wie? Bzw. Wo muss ich die Klammern setzen?

mfG
Störtebeker

[Apollonius]

Den else-Block ebenfalls mit begin..end einklammern. Außerdem kannst du boolean wie jeden anderen Typen zuweisen:

Delphi-Quellcode:

Form1.Edit1.Visible   := Checkbox26.checked;
Form1.Button1.Visible := Checkbox26.checked;

[DeddyH]

Delphi-Quellcode:

procedure TForm3.CheckBox26Click(Sender: TObject);
begin
if checkbox26.checked = false then begin
Form1.Edit1.visible:=false;
Form1.Button1.Visible:=false;
end
else begin
Form1.Edit1.Visible:=true;
Form1.Button1.Visible:=true;
end;
end;

Einfacher wäre allerdings

Delphi-Quellcode:

procedure TForm3.CheckBox26Click(Sender: TObject);
begin
  Form1.Edit1.visible := checkbox26.checked;
  Form1.Button1.Visible := checkbox26.checked;
end;

[edit] [/edit]

[Störtebeker]

THX.

mfG
Störtebeker

[Phoenix]

Aaarg. Nie, gar nie nicht einen Boolean auf "= false / true" abprüfen. Das kann furchtbar ins Auge gehen. Gleich (=sofort) abgewöhnen!

Richtig:
if not checkbox.Checked then