CheckBox-Problem (Sehr eltsam)

[Tommy1988]

Folge
nder Code sollte eigentlich simpel sein:

Delphi-Quellcode:

// CheckBox
begin
if CheckBox1.Checked then
 begin
 Label7.Visible := True;
 Label8.Visible := True;
 Label9.Visible := True;
 Edit2.Visible := True;
 ComboBox4.Visible := True;
 ComboBox5.Visible := True;
 end else
 Label7.Visible := False;
 Label8.Visible := False;
 Label9.Visible := False;
 Edit2.Visible := False;
 ComboBox4.Visible := False;
 ComboBox5.Visible := False;
end;

Jeder weis was gemeind ist.

Jedoch habe ich ein kleines Problem.

Ist die CheckBox Checked, so wird aber nur
Label7 sichtbar gemacht, bzw. unsichtbar.
Die Komponenten unter Label7 werden einfach ignoriert.

Woran kann das liegen?

[alzaimar]

Nach dem Else fehlt ein 'Begin'. Durchsteppen mit F7 bringts

[Helmi]

Im Grunde genommen hätt eine gute Formatierung den Fehler schon gezeigt:

Delphi-Quellcode:

// CheckBox
begin
if CheckBox1.Checked then
  begin
    Label7.Visible    := True;
    Label8.Visible    := True;
    Label9.Visible    := True;
    Edit2.Visible     := True;
    ComboBox4.Visible := True;
    ComboBox5.Visible := True;
  end 
else
  begin                                  //<== fehlte!
    Label7.Visible    := False;
    Label8.Visible    := False;
    Label9.Visible    := False;
    Edit2.Visible     := False;
    ComboBox4.Visible := False;
    ComboBox5.Visible := False;
  end;                                   //<== fehlte!
end;

Du könntest dir dies aber auch verkürzen:

Delphi-Quellcode:

begin
  with CheckBox1 do
    begin
      Label7.Visible    := Checked;
      Label8.Visible    := Checked;
      Label9.Visible    := Checked;
      Edit2.Visible     := Checked;
      ComboBox4.Visible := Checked;
      ComboBox5.Visible := Checked;     
    end;
end;