Discussion :

[Modulpro]

Bonjour,
Je rencontre actuellement un petit problème :
je voudrais que lorsque l'on quitte l'application (même au moyen de la croix rouge de la forme principale), un message de confirmation s'affiche, qui demande à l'utilisateur s'il veut vraiment quitter.

Pour afficher le message, j'utilise une procédure du type :

Code :

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

1
2
3
4
5
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin 
  Messagedlg('Voulez vous vraiment quitter ?',mtwarning,[mbok,mbno],0)
end;

que je fais correspondre à l'evennement OnClose de la forme principale.
Le problème est que je ne sais pas comment garder la forme ouverte en cas de réponse négative de l'utilisateur (puisque cette procedure s'execute à la suite d'un Form1.close; )

Quelqun a-t-il une idée ? Merci d'avance.

[mick605]

Salut

Il suffit de modifier la valeur de CloseAction !

Exemple :

Code :

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

CloseAction:=caNone;

Bonne chance

[Modulpro]

Merci pour la réponse,
En effet la fenêtre reste ouverte lorsque je modifie la valeur de CloseAction.
Cependant lorsque je tente ensuite de faire autre chose dessus (que ce soit de la refermer ou toute autre action), le programme plante :
"external SIGSEVG".
Ne faut il pas rechanger la valeur de CloseAction pour éviter ce genre de désagrément ? Si oui, comment et quand ?

[mick605]

Euh non ...

Le code que tu as dans FormClose doit se limiter, dans ton cas, a :
- L'ouverture de la MessageBox,
- Le traitement de la réponse en affectant caNone ou caFree a CloseAction.

Si c'est caNone, FormClose s'arrete, et tout reprends comme si l'utilisateur n'avais pas cliqué sur fermer.

[Modulpro]

ah...désolé,
je viens de me rendre compte que ma procédure détruisait une stringlist, quelque soit la reponse de l'utilisateur,
d'où l'erreur quand le programme se poursuivait normalement (mais sans stringlist)
Encore merci.

[mick605]

Ok, tout se comprends ^^

Par contre, il vaut mieux détruire tes objets dans l'évenement OnDestroy, c'est une bonne habitude a prendre