Checkboxen um funktionen zu bauen

[MondoShiva]

Sehr nett, Ich danke dir 1000fach

[Sir Rufo]

Du solltest deine Quelltext-Formatierung etwas überdenken.

Das was du im ersten Post in procedure TForm2.Button1Click(Sender: TObject); zeigst, suggeriert ein if ... then ... else Verhalten, was es aber gar nicht ist.

Korrekt wäre also

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  HidetheBoxes;

  if CheckBox1.Checked then
    func1;

  if CheckBox2.Checked then
    func2;

  if CheckBox3.Checked then
    func3;

  if CheckBox4.Checked then
    func4;

  if CheckBox5.Checked then
    func5;

  if CheckBox6.Checked then
    func6;

  if CheckBox7.Checked then
    func7;

  if CheckBox8.Checked then
    func8;

  if CheckBox9.Checked then
    func9;

  if CheckBox10.Checked then
    func10;

  if CheckBox11.Checked then
    func11;

Und das direkte Verweisen auf ganz konkrete Form-Instanz Variablen ist auch kontraproduktiv:

Delphi-Quellcode:

  // Die Instanz dieser Klasse spricht man mit Self an, bzw. einfach ohne Nennung die Methoden benutzen
  //form2.Hide;
  {Self.}Hide;

  // Verbindungen zu anderen Formularen über Events schaffen und nicht direkt dort reinpfuschen
  //form1.Button1.Enabled := true;
  {Self.}DoEnableButtonOnParentForm( Self );
end;

[MondoShiva]

Werde es mir zu Herzen nehmen. Genauso wie das tolle Buch aus der Ausbildung ^^ das derweilen schon verstaubt irgendwo in einer Kiste liegt.