Discussion :

[kroma23]

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 :

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

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

[Rayek]

Utilise InputQuery

Code :

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

1
2
3
4
5
 
If InputQuery('Boite de dialogue','Veuillez saisir un truc',X) Then
  ACtion1
else
  Action2;

[kroma23]

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

[Rayek]

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

[cantador]

Code :

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

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

[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 :

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

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;

[Rayek]

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 :

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

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 :

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

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;

[tarekk73]

bon jour

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

Code :

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

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

[RomainGau]

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.