Utilisation OnCloseQuery !

salut

Citation:

---

Envoyé par cincap

...

Code:

---

1 2 3 4 5 6 7 8 9

Application.CreateForm(TFormexit, Formexit); if Formexit.Showmodal = mrOk then begin CanClose := true ; FlagModif := Ecriture(false) end else CanClose := False;

---

...

---

pour repondre a ta question la difference entre mon test est le tiens

mon test permet de ne pas fermer la fenetre si l'ecriture ce passe mal
dans ton cas dans tout les cas tu ferme et tu ne voi pas si l'enregistrement c'est mal passer

ensuite la modification du flagmodif n'est la que pour le fun dans ton cas comme dans le mien celui-ci ne sert a rien du fait que tu ferme ta fenetre

@+ Phil