Discussion :

[raiku]

J'ai fait une application et je voudrais la fermer.
J'ai fait un menu "fichier , quitter " et une fenetre de dialogue avec oui, non et annuler qui s'ouvre si on clique sur quitter.
Je voudrais maintenant que lorsque je clique sur oui dans la fenetre de dialogue l'application ( mon logiciel ) se ferme ( éteind ).

Merci

[marsupilami34]

Salut
Tout simplement

Code :

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

1
2
 
Form1.close;

[qi130]

tu dois appeler ce dialogue avec un showModal !?

Sa fermeture se fait par un des boutons, et chaque bouton doit renvoyer un "message" différent:
MrOk pour Ok, etc...

Lors de l'appel, tu dois faire donc qq chose comme

Code :

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

 if Mondialogue.ShowModal=MrOk then MaForm.Close;

[raiku]

Merci Marsupilami34, mais il faut pas que je mette Le nom de mon button clique Form1,close ?

[marsupilami34]

Merci Marsupilami34, mais il faut pas que je mette Le nom de mon button clique Form1,close ?

non.
Ce qu'il te faut faire, c'est creer l'événement ButtonClick et y mettre dedans le code Form1.close

[raiku]

Comment crée l'événement ?
Je ne peut pas choisir ma fenetre de dialogue dans l'inspecteur d'objet car ma fenetre n'a pas était crée avec " fichier, nouveau, autre, dialogue "

Sinon merci a marsupilami34, qi130 .

[benib8]

Dans l'evenement OnClose de la fiche principale de ton programme tpe le code suivant

Code :

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

1
2
3
4
5
6
7
8
 
begin
  if MessageDlg('Ton message ici', mtConfirmation,
    [mbYes, mbNo, mbCancel], 0) = mrYes then
    Action := caFree
  else
    Action := caNone;
end;

[raiku]

Comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Quitter1Click(Sender: TObject);
begin
 MessageDlg('Voulez-vous vraiment quitter ?',mtCustom,mbYesNoCancel,0);
 
 begin
  if MessageDlg('Tvoulez-vous vraiment quitter ?', mtConfirmation,
    [mbYes, mbNo, mbCancel], 0) = mrYes then
    Action := caFree
  else
    Action := caNone;
end;
end;

[raiku]

Désoler mes qustion sont nul mais je suis un débutant.

Merci benib8, marsupilami34 et qi130

[neilbgr]

D'abord :

Code :

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

1
2
3
4
procedure TForm1.Quitter1Click(Sender: TObject);
begin
  Close;
end;

Ainsi, ton menu ou bouton Quitter1 ferme la form.


Lors de la fermeture, l'évement OnCloseQuery() est déclenché.
Là tu as un variable qui te permet d'autoriser ou pas la fermeture de la form :

Code :

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

1
2
3
4
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (MessageDlg('Voulez-vous vraiment quitter ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrYes);
end;

autre version (mais c la meme chose :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (MessageDlg('Voulez-vous vraiment quitter ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrYes) then
    CanClose := True
  else
    CanClose := False;
end;

[Conficius]

Sinon pour quitter quand tu clique sur ton bouton OK ou OUI tu peut mettre le plus simple :

Code :

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

Application.Terminate;

et pour quitter ou fermer une form tu met

Code :

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

close;

Sérieusement c'ets les plus simple je sais pas ce que eux il t'ont mi mais bon

[Manopower]

Conficius, l'avantage des autres méthodes est que même si l'utilisateur clique sur la croix de fermeture de fenêtre, l'évenement OnClose se déclenchera, et on verra bien la boîte de confirmation.


Raiku : Pourquoi avoir "Oui, Non, Annuler" comme réponses possibles ? Oui et Non suffiraient ?

Code :

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

1
2
3
  if MessageDlg('Tvoulez-vous vraiment quitter ?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then 
    (...)

[neilbgr]

Oui, bien sur que Oui ou Non suffisent !

[lapec_and_cie]

Salut,


Tout simplement en tapant le code suivant :

Code :

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

1
2
MessageDlg('Voulez-vous vraiment quitter ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrYes then
       Application.Terminate;

Celà devrait suffir si tu n'as pas d'objet dynamique...


A plus,

Chris