Fermeture d'une application

Bonjour tous le monde!!!
mon probleme est trés simple, sur mes aplications delphi g esseyé d'introduir un message ('etes-vous sure de vouloir quitter?') lors'que l'utilisateur ferme l'application, automatiquement je l'ai fait à l'evenement on close mais le souci c'est que même si l'utilisateur choisi de ne pas fermer lapplication cette dernier se ferme commeme!!!

form onclose...

Code:

---

1 2 3 4 5 6 7

begin if messagedlg('etes vous sure de vouloir quitter?',mtconfirmation,[mbyes,mbno],0)=mryes then application.terminate else ????????????? end;

---

je ne sais pas quoi metre à la place des ???? afin de présérvé l'application en execution dans le cas ou on choisi de ne pas quitter!!!

Et merci d'avence;)

Il faut mettre ça dans la procedure OnCloseQuery de ta fiche principale...
Normalement, ça devrai le faire;) bonne nuit...

Oui mais si on clic sur no sa se ferme commeme
Psk jutilise:

Code:

---

1 2 3 4 5

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if messagedlg('etes vous sure de vouloir quitter?',mtConfirmation,[mbyes,mbno],0)=mryes then application.Terminate else end;

---

que dois-je metre apré else pr que ça ne se ferme pas?

merci!!!

Ben Biensur que ca se ferme quand même !! C'est pas le but ? C'est que j'ai pas compris:aie:

Bon alors à ce moment là:

Code:

---

1 2 3 4 5 6 7

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('etes vous sure de vouloir quitter?', mtConfirmation,[mbyes, mbno],0) = mryes then Application.Terminate else CanClose := False; // c'est ça ! end;

---

Moi je vouyais ça du style:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Voulez-vous enregistrer les modifications ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin SaveDialog1.Execute; //... traitement end else Application.Terminate; end;

---

Voilà, si c'est clair, n'oublie pas le tag Résolu !;)
A plus

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('etes vous sure de vouloir quitter?', mtConfirmation,[mbyes, mbcancel],0) = mrcancel then CanClose := False else Application.Terminate; end;

---

et ça marche!

a+

ludo

Si Form1 est la fiche principale, il est inutile de mettre

Code:

---

1 2	Application.Terminate;

---

La fermeture de la fiche principale de l'appli provoque la fermeture de l'appli ;)
Donc si Form1 est la fiche principale, il peut écrire simplement:

Code:

---

1 2 3 4 5 6

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('etes vous sure de vouloir quitter?', mtConfirmation,[mbyes, mbcancel],0) = mrcancel then CanClose := False; end;

---

Pour precision "CanClose" est une variable passée en parametre "Var" donc toute modification remonte jusqu'a la fonction appelante.

LE principe de cet evenement (OnCloseQuery) est de d'alerter le developpeur quand l'utilisateur "requiere" une fermeture de l'applciation.

Le developpeur peut ainsi autoriser ou non la fermeture via la madification du parametre "CanClose", par defaut a True.

Une fois le gestionaire d'evenement OnCloseQuery terminé, la classe TForm teste la valeur de CanClose et selon le cas, poursuit ou non le processus de fermeture.

Cela marche pour toutes les forms, mais l'effet n'est pas le meme selon que c'est une simple form ou la form principale (premiere form cree) car le systeme ferme automatiquement l'application quand la form principale se ferme.

merci pour les infos, c'est vraiment bien ces forum! Vousfaites gagner un temps considérable en partageant votre expérience...

Bha .... les debutants d'aujourd'hui ferons les experts de demain ;)

je vous remercie ennormément pour vos répenses aussi claires et explicatives, et aussi pour vos encouragements!!!

Merci!!!;)

Citation:

---

Envoyé par lou_delphdev

je vous remercie ennormément pour vos répenses aussi claires et explicatives, et aussi pour vos encouragements!!!

Merci!!!;)

---

Si ton problème est résolu alors clique sur :resolu: ;)