Stack-Überlauf

[Helmi]

Hallo,

ein close im Ereignis OnClose ruft wiederrum OnClose auf. Da da aber ein close drin ist, wiederholt sich das ständig, bis der Stack (über-)voll ist.

Solche Abfragen sollten in OnCloseQuery rein.

Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //Beenden erlauben/verweigern
  CanClose := (Gespeichert = 'Ja') or (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrYes);
end;

CanClose = true sagt, dass die Anwendung geschlossen werden kann.

Bei Abfrage auf mrYes wird CanClose true wenn der Bediener auf "Ja" klickt. Klickt er auf "Nein" dann ist CanClose false und es wird nicht geschlossen.

Der Code zum Speichern dann in das OnClose. Dies wird nur aufgerufen, wenn das CanClose in OnCloseQuery auf true gesetzt wurde.

Das würde dann so aussehen:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Button "sichern" anklicken
  bt_save.click;
end;

[Edit]
Die Abfrage auf gespeichert ebenfalls in das OnCloseQuery gelegt. Dadurch kommt keine Meldung wenn Gespeichert = 'Ja' ist.