Discussion :

[stefano]

salut a tous,

J'aimerai savoir si c'est possible de demander a un utilisateur si il veux enregistrer les mofifications apporter a une table paradox avant de fermer l'application ??

ex
si l'enregistrement n'a pas ete fait avant le clic sur le bouton fermer

Clic sur le bouton fermer

------> message "enregistrer"
------>Oui ------> Sauvegarde
------>Non ------> quitter


merci pour votre aide

[qi130]

Oui, c'est possible, mais tu attends quoi ?

Le code du MessageDlg ou le code pour commiter les modifs en base ?

[stefano]

salut,

ce que j'attend c'est ce que je doit ecrire pour que cela ce fasse

je pense qu'il faut que je fasse sur l'evenement onclic du bouton "fermer" pour que la fenetre d'alerte s'affiche, puis a partir de la fenetre dire que si c'est ok alors les modif seront enregistrer si c'est "non" alors on fermera l'appli mais comment tester pour savoir si le bouton "sauvegarder" n'as pas ete actionner juste avant le bouton "fermer"

merci pour ton aide

[qi130]

1/ déclare une variable globale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var sauvegardeFaite:boolean;

2/ Dans le Create de ta form principale:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sauvegardeFaite:=false;

3/ Dans le OnClick du bouton Sauvegarde:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sauvegardeFaite:=true;

4/ Dans le OnDestroy de ta form principale:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if not sauvegardeFaite then
  if MessageDlg('Les dernières modifications ne sont pas enregistrées.'+
   ' Voulez-vous les enregistrer?',mtWarning,[mbOk,mbCancel],0,mbOk)=mrOk then boutonSauvegardeClick(nil);

[stefano]

merci pour ton aide,

j'ai modifier un peux ce que tu m'as donner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if not sauvegardeFaite then
  if MessageDlg('Les dernières modifications ne sont pas enregistrées.'+
   ' Voulez-vous les enregistrer?',mtWarning,[mbOk,mbCancel],0) = mrOk then ValiderClick(nil);

car j'avais un message d'erreur comme quoi il avait trop d'argument et en recherchant dans les tuto du forum j'ai vu que mbOk situer apres le 0 ne paraissant pas.

Et j'ai mis la condition dans l'evenement onClick du bouton fermer car en onDestroy ça marchais pas.et je sais pas pourquoi

Quoi qu'il en soit , un grand merci pour ton aide

[Rayek]

il y a aussi une autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
if LATable in [dsInsert,dsEdit] then
begin
  if Messagedlg('Voulez vous enregistrer les dernieres modifications ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
  begin
    LaTable.Post;
  end
  else
    LaTable.Cancel;
end;