Bei Beenden von Form prüfen ob Daten schon gespeichert s

[Mirilin]

Delphi-Quellcode:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
const
  s = 'Änderungen sind nicht gespeichert, vor dem Beenden speichern?';
begin
  if not Saved then
  begin
    CanClose := True;
    case MessageDlg(s,mtConfirmation,[mbYes,mbNo,mbCancel],0) of
      mrYes    : Save; //Save wäre Speicerprozedur...
      mrCancel : CanClose := False;
    end;
  end;
end;

Gruss Mirilin