Bonjour,

J'ai une application, lorsqu'on modifie le formulaire de l'application, Je passe une variable "ModifForm" à True (boolean).
De ce fait, lors de la fermeture de l'application, je voudrais controler cette variable, et SI ModifForm=True alors on Propose via un MsgBOX d'enregistrer les modifications ou non...

J'ai fait le code le soucis c'est que je ne sais pas ou le palcer, car j'ai le message "Debordement de pile".

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If ModifForm=True then
  If MessageDLG('Voulez-vous enregistrer les Modifications???',mtConfirmation,[mbYes,mbNo],0)= mrYes then
  begin
    Enregistrement;
    CanClose:=True;
    Close;
    end
  else begin
  CanClose:=True;
  close;
    end
else begin
CanClose:=True;
close;
  end;
end;
Merci de votre aide !