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

[Basic-Master]

Hi,
etwa so?

Delphi-Quellcode:

uses ... , dialogs, ...

type
  TForm1 = class(TForm)
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    saved:boolean;
  end;

...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not saved then begin
  if messagedlg('Es wurde nicht gespeichert. Trotzdem beenden?', mtconfirmation, [mbyes, mbno], -1) = mryes then
  canclose := true
  else
  canclose := false;
end;
end;

musst halt nur das OnCloseQuery-Event von dem Form auf FormCloseQuery einstellen...