CheckBox-Problem (Sehr eltsam)

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