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]