Einzelnen Beitrag anzeigen

Albi

Registriert seit: 4. Mai 2003
Ort: Berlin
458 Beiträge
 
Delphi 7 Professional
 
#8
  Alt 1. Jun 2003, 10:57
end;Ich denke mal ich habe an alles gedacht. Ich habe in meine beiden Edit Felder ein OnChange eingebaut (Saved:= False bzw. True) und habe auch auf dem Form2 das onCloseQuery Ereignis eingetragen aber wenn ich dann das Form beende, schließt er es einfach ganz normal.

Hier mal der Code

Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not saved then begin
if Saved then begin
  if MessageDlg('Es wurde nicht gespeichert. Trotzdem beenden?', mtconfirmation, [mbyes, mbno], -1) = mryes then
  CanClose := true
   else
   CanClose := false;
end;
Und fürs Setzen:

Delphi-Quellcode:
procedure TForm2.Edit1Change(Sender: TObject);
begin
 Saved:= False;
end;
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]
  Mit Zitat antworten Zitat