vorzeitiges schliessen eines programms verhindern ???

[Muetze1]

Moin!

Schau dir bei der Form mal das Ereignis OnCloseQuery an! Dieses bietet dir die Möglichkeit nachzuschauen ob noch veränderte Daten vorliegen und den User zu fragen, ob er denn noch vorher speichern will.

Beispiel:

Delphi-Quellcode:

Procedure TForm1.FormCloseQuery(Sender : TObject; Var CanClose : Boolean);
Begin
  CanClose := True;

  If Memo1.Changed Then
  Begin
    Case MessageDlg('Wollen Sie die Änderungen vor dem Verlassen noch speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) Of
      mrYes    : Memo1.Lines.SaveToFile(fFileName);  // Speichern
      mrNo     : ; // nothing to do
      mrCancel : CanClose := False;  // schliessen des Programms verhindern
    End;
  End;
End;

MfG
Muetze1