Discussion :

[didi59650]

Est-il possible d'afficher un messagebox lorsqu'on click sur la croix pour fermer logiciel?

[edam]

inspire de: http://delphi.developpez.com/faq/?pa...oquerfermeture

[Jayceblaster]

Il faut que tu codes dans l'evenement onClose de ta form et ca marchera

Code :

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

1
2
3
 
  procedure TForm1.FormClose (.....)
  Application.MessageBox ('Fermeture de la Form');

[didi59650]

ok, en fait j'aimerai afficher un messagebox. si je click sur ok le logiciel se ferme si je click sur annuler je revien au logiciel.
Dois je creer la procedure tform1.close ou je peux y acceder en double clicant sur l'space objet ( comme pour tform1.formcreate)?

[didi59650]

ok compri

[Jayceblaster]

Ben en fonction de la réponse de l'utilisateur donc du code renvoyé par le message box soit tu laisse couler (si appui sur OK) soit tu rappelle le form Creat (si appui sur Annuler)
C pas possible ca?

[denokan]

Code :

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

1
2
3
4
5
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('Etes-vous sûr de vouloir fermer ?', mtConfirmation,
                         [mbYes, mbNo], 0) = mrYes;
end;