Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
1. Jun 2003
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,,0) of
mrYes : Save; //Save wäre Speicerprozedur...
mrCancel : CanClose := False;
Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
31. Mai 2003
Nimm eine Boolean-Variable
Saved : Boolean;
wenn du speicherst setzt du sie auf True.
Beim OnChange setzt, setzt du sie auf False.
Und beim Beenden fragst du dann wenn False ist ob man speichern soll.
Gruss Mirilin