le bouton annuler sur inputbox

salut a tous
comment tester le bouton annuler dans une inputbox
je veux dire quand l'utilisateur clic sur le bouton annuler du inputbox en fais rien
voila mon code

Code:

---

1 2 3 4 5 6

x=inputbox('','','') si x='' alors action 1 sinon action2

---

le problème ces que si je clic sur annuler il exécute action1 et ca ces faux .
merci d'avance

Utilise InputQuery

Code:

---

1 2 3 4 5

If InputQuery('Boite de dialogue','Veuillez saisir un truc',X) Then ACtion1 else Action2;

---

merci pour votre réponse
même avec inputquery si je clic sur annuler il va executer action1

Tu peux mettre ton code de ce que tu as fait cela aiderai pour l'analyse

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var MyValue: string; begin if InputQuery('Boite de dialogue', 'Saisir un truc', MyValue) then showmessage('ok') else showmessage('no'); end;

---

sinon X est interprété comme une constante

bon jour
la fonction inputbox
function InputBox(const ACaption, APrompt, ADefault: WideString ): WideString; overload;

ACaption spécifie le titre de la boîte de dialogue.

APrompt est le texte qui invite l'utilisateur à entrer des données dans la boîte de saisie.

ADefault est la valeur présente dans la boîte de saisie lorsque la boîte de dialogue apparaît pour la première fois.

qu'ont on apuis sur le bouton annuler notre valeur X resoit la valeur par defaux qui est dans votre car '' c'est a dire execution de action1
si vous changer la valeur par defaux '' par une autre valeur le resultat changera
exp

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var x : string ; begin x := inputbox('','','Entrer ici votre texte'); if x= '' then showmessage('1') else showmessage('2')     end;

---

Citation:

---

Envoyé par tarekk73

bon jour
la fonction inputbox
function InputBox(const ACaption, APrompt, ADefault: WideString ): WideString; overload;

ACaption spécifie le titre de la boîte de dialogue.

APrompt est le texte qui invite l'utilisateur à entrer des données dans la boîte de saisie.

ADefault est la valeur présente dans la boîte de saisie lorsque la boîte de dialogue apparaît pour la première fois.

qu'ont on apuis sur le bouton annuler notre valeur X resoit la valeur par defaux qui est dans votre car '' c'est a dire execution de action1
si vous changer la valeur par defaux '' par une autre valeur le resultat changera
exp

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var x : string ; begin x := inputbox('','','Entrer ici votre texte'); if x= '' then showmessage('1') else showmessage('2')     end;

---

---

Je ne crois pas que cela fonctionne de cette manière, il est bien précisé que lors de l'annulation la valeur par défaut est retourné donc le code devrait être

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var x : string ; begin x := inputbox('','','Entrer ici votre texte'); if x= 'Entrer ici votre texte' then showmessage('1') else showmessage('2')     end;

---

bon jour

la meilleur façon est de tester les valeurs modifier pas la valeur par défaut

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); var x : string ; begin x := inputbox('','',''); if x<> '' then showmessage('2') else showmessage('1') end;

---

dans ce cas
si je n'est rien modifier dans le texte, je tape OK ou ANNULER le resultat est le même ---> showmessage('1');
merci rayek

Aide delphi

Boolean InputQuery(const AnsiString ACaption, const AnsiString APrompt, AnsiString Value);


InputQuery renvoie true si l'utilisateur choisit OK et false si l'utilisateur choisit Annuler ou appuie sur Echap.