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:
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:
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