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

Die Methode ReadBool ist eine Funktion!

Ein Formular kennt das Ereignis OnCreate in dem man normalerweise alles initialisiert.

Schreib die Prozedur unter TForm1.OnCreate (im Objekt-Inspektor unter Ereignisse) und schon wird bei jedem Start die Einstellung übernommen.

Readbool ist eine Funktion... Die Eigenschaft der Box muss dem Funktionsergebnis gleichgesetzt werden.

Moin Lamy,

wobei es noch wichtig ist, dass das Zuweisen an die Eigenschaft Checked ein OnClick für diese Kompo auslöst, als würde man die Checkbox anklicken.

?
Könntest du mir das bitte mal übersetzen?

Wär nett, denn ich bin noch anfänger aber je mehr ich lerne desto besser

Danköö!

Edit: Eieiei, das geht ja schnell hier.... Danke euch allen!

Ich probiers mal aus und melde mich dann wieder bis gleich

moin,

ini.Read... sind Funktionen, d.h. es müsste wie folgt aussehen:
CBBeendenfrage.Checked := ini.ReadBool('Abfragebeiende', 'Abfrage', false); Der letzte Parameter ist der Standardwert, der verwendet wird falls der Ini-Eintrag nicht gefunden wird.


Um das ganze ohne Button zu realisieren musst du das Laden in die Create-procedure des Forms schreiben
einfach einen Doppelklick aufs Formular machen und dann das folgende eintragen:

markieren

Delphi-Quellcode:

procedure TForm1.Form2Create(Sender: TObject);
begin
  ini := TIniFile.Create('C:\ftp4u.ini');
  Form2.CBBeendenfrage.Checked := ini.ReadBool('Abfragebeiende', 'Abfrage', false)
  ini.Free;
END;

EDIT: *grummel* schon wieder zu langsam

Also, so weit so gut, wie man das ganze bei Programmstart lädt weiß ich jetzt.

Aber:
Ich verstehe nicht warum man nicht die Funtkion Readbool benutzen kann, was soll man sonst nehmen?

EDIT: Boah, das Board regt mich echt auf (scherz!!!), das geht ja alles schneller als man schreiben kann

Vielen Dank, ich glaub das wars fürs erste!
Schönen Abend noch,
Lamy

chris meinte;

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Formcreate(sender :TObject);
begin
  cbx1.state:=cbchecked;
end;

procedure Tform1.cbx1click(Sender:TObject);
begin
    if Cbx1.checked then
     Showmessage('ich bin markiert');
end;

die message siehst du bei jedem aufruf von Form1.

raik

Irgendwie bin ich zu blöde

zusammenfalten · markieren

Delphi-Quellcode:

//--------------------------------------------------------------- | Speichern und laden

PROCEDURE TForm2.FormCreate(Sender: TObject);
VAR ini: Tinifile;
BEGIN
  ini := TIniFile.Create('C:\ftp4u.ini');
  Form2.CBBeendenfrage.Checked := ini.ReadBool('Abfragebeiende', 'Abfrage', false);
  ini.Free;
END;


PROCEDURE TForm2.BTspeichernClick(Sender: TObject);
VAR ini: TInifile;
BEGIN
  ini := TIniFile.Create('C:\ftp4u.ini');
  ini.WriteBool('Abfragebeiende', 'Abfrage', false);
  ini.Free;
END;

Moin Lamy,

schau Dir noch einmal genau den dritten Parameter bei WriteBool an.
Müsste helfen.