ourvrir une fenetre de confirmation.

**Yepazix** · 13/02/2009, 18h18

Hello,

Voila l'idée :
1/on clique sur un bouton.
2/ une fenêtre s'ouvre et demande 'vous etes sur de vouloir faire ce truc' avec deux boutons OUI et NON.
3/ on fait oui le programme continue avec la ligne suivante du code.
4/ on fait non le programme revient ou il était avant qu'on clique sur le bouton.

Existe t'il un compo ou un moyen qui fait ça automatiquement ou faut il créer une fiche avec les boutons et tout le toutim ?

En fait l'idée c'est juste que je veux une sorte de sécu pour qu"on ne puisse pas déclancher par accident une action liée au poussage (jolie ça) d'un bouton.

Une idée ?

**BuzzLeclaire** · 13/02/2009, 18h23

Regarde avec cette fonction

MessageDlg('Voulez-vous réellement supprimer ces informations ?',mtConfirmation,[mbYes,mbNo],0);

A plus...

**Yepazix** · 13/02/2009, 18h35

Oui ca j'ai essayé.
J'ai fait comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button8Click(Sender: TObject);
begin
{CONFIRMER}
MessageDlg('Déclancher l alarme ?',mtConfirmation,[mbYes,mbNo],0);
AppDir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
Mediaplayer1.Filename:= AppDir + 'sound\7.wav';
Mediaplayer1.Open;
Mediaplayer1.play;
Edit1.Text:=mediaplayer1.FileName;
end;

Mais ça va pas parceque quand je fais non il continue le code.
Je dois sans doute ajouter un truc après pour dire de pas faire les lignes qui envoient le son mais je sais pas quoi.

**tourlourou** · 13/02/2009, 18h40

yes ! style

Code :

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

1
2
3
if MessageDlg('Déclencher l''alarme ?',mtConfirmation,[mbYes,mbNo],0)=mrYes
then ...
else ... ;

**Yepazix** · 13/02/2009, 18h54

Ah ok je vois Delphi gère la fenetre mais il faut tout de même dire quoi faire avec le résultat.
C'est intéressant et ça marche nikel pour mon truc.
Il y a des infos complémentaires sur le net pour ça, je suppose qu'il y a des options en plus genre YES, NO, CANCEL non ?

En tout cas merci beaucoup c'est extement ce dont j'avais besoin.