Checkbox-Status:in einer .ini-Datei speichern

**Lamy**

Hi!

Ich habe 2 Formulare, Formular2 wird aufgerufen, wenn man auf den Button "Einstellungen" auf Formular 1 klickt.
Nun kommt standartmäßig eine Beendenabfrage, wenn das Programm beendet werden soll:

markieren

Delphi-Quellcode:

			PROCEDURE TForm1.FormCloseQuery(Sender: TObject; VAR CanClose: Boolean);

BEGIN

  IF Form2.CBBeendenfrage.Checked THEN

    IF MessageDlg('Soll das Programm wirklich beendet werden?', mtConfirmation, [mbYes, mbNo], 0) = mrNo THEN

      CanClose := False;

END;

In dem Einstellungs-Formular hat man nun eine Checkbox, bei der man auswählen soll ob die Frage angezeigt werden soll oder nicht:

zusammenfalten · markieren

Delphi-Quellcode:

			PROCEDURE TForm2.BTspeichernClick(Sender: TObject);

VAR ini: TIniFile;

BEGIN

  ini := TIniFile.Create('C:\ftp4u.ini');

  ini.WriteBool('Abfragebeiende', 'Abfrage', Form2.CBBeendenfrage.Checked);

  ini.Free;

END;

PROCEDURE TForm2.BTladenClick(Sender: TObject);

VAR ini: Tinifile;

BEGIN

  ini := TIniFile.Create('C:\ftp4u.ini');

  ini.ReadBool('Abfragebeiende', 'Abfrage', Form2.CBBeendenfrage.Checked);

  ini.Free;

END;

Dazu hab ich gleich 2 Fragen: Warum speichert das Programm den Status der Box nicht?
Und wie kann ich es einrichten, dass die Einstellungen gleich beim Programmstart geladen werden und der Button "Laden" überflüssig wird?

Vielen Dank schonmal;

Lamy

Checkbox-Status:in einer .ini-Datei speichern

Checkbox-Status:in einer .ini-Datei speichern

Forumregeln