Discussion :

[souminet]

Bonjour,
Voilà je souhaiterais afficher un message de confirmation de fermeture de l'application au moment où l'utilisateur click sur le bouton fermer de la barre de titre (La croix)....
j'ai implémenté ce qui suit:

Code :

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

1
2
3
4
5
6
7
Var
rep:integer;
begin
rep:=MessageBox(handle,'Etes-vous sûr de vouloir quitter l''application?','Avertissement',MB_OKCANCEL or MB_OK);
if (rep=IDOK) then
application.Terminate;
end;

Le problème est que ne n'ai pas su l'intégrer à l'événement adéquat, car si j'implémente ces quelques lignes au niveau de l'événement ONCLOSE de la fiche principale , l'application se ferme quelque soit la réponse donnée par l'utilisateur ( en cliquant sur : OK aussi bien que sur ANNULER)

Alors comment procéder pour que l'annulation de la fermeture de l'application ne soit opérationnelle si l'utulisatur clique sur le bouton ANNULER du MessageBox.

Merci +++++++++

[qi130]

OnClose=en train de se fermer...


Utilise plutôt ton code dans OnCloseQuery et invalide CanClose selon ton besoin

[souminet]

Au risque de passer pour une .............
C'est bon j'ai repris mon code au niveau du: OnCloseQuery mais je n'ai pas su utiliser le : CanClose, d'ailleurs ne ne sais même pas comment l'utiliser???

Merci

[SergioMaster]

Quelque chose comme :

Code :

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

1
2
3
4
5
 
procedure TForm1.onCloseQuery(Sender : TObject; var CanClose : Boolean);
begin
CanClose:=(MessageBox(handle,'Etes-vous sûr de vouloir quitter l''application?','Avertissement',MB_OKCANCEL or MB_OK)=IDOK);
end;

[souminet]

Merci c'est bon