Discussion :

[21247692]

bonjour

voila ma procédure

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button2Click(Sender: TObject);
var
x:integer;
begin
if (messagedlg('voulez vous quitté le programme',mtconfirmation,[mbyes]+[mbcancel],0)=mbyes) then
caption:='Oui'
else
caption:='Non'

l'erreur est (le type est incompatible)

[ero-sennin]

Salut,

Le soucis que tu as c'est que tu as tester avec mbYes au lieu de mrYes ...
De plus, je mettrai ceci [mbYes,mbCancel] au lieu de cela [mbyes]+[mbcancel] (c'est au choix je dirai )

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (messagedlg('voulez vous quitté le programme',mtconfirmation,[mbyes,mbcancel],0)=mrYes) then
    caption:='Oui'
  else
    caption:='Non';
end;

A+

[21247692]

oui merci elle marche tri bien

[ero-sennin]

Si tout est OK, n'oublies pas le tag
Merci

[Jipété]

if (messagedlg('voulez vous quitté le programme',mtconfirmation,[mbyes]+[mbcancel],0)=mbyes)

Io,
mon grain de sel :

Voulez-vous quitter le programme ?

Ça sera quand même plus français, non ?
--
jp