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? :oops: Bzw. Wo muss ich die Klammern setzen? :oops:

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] :evil: [/edit]

[Störtebeker]

THX. :thumb:

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:

Delphi-Quellcode:

if not checkbox.Checked then