IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

le bouton annuler sur inputbox


Sujet :

Delphi

  1. #1
    Membre régulier
    Homme Profil pro
    agent de fisc(les impots)
    Inscrit en
    Juillet 2006
    Messages
    427
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : agent de fisc(les impots)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 427
    Points : 111
    Points
    111
    Par défaut 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 : 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

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut
    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;
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  3. #3
    Membre régulier
    Homme Profil pro
    agent de fisc(les impots)
    Inscrit en
    Juillet 2006
    Messages
    427
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : agent de fisc(les impots)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 427
    Points : 111
    Points
    111
    Par défaut
    merci pour votre réponse
    même avec inputquery si je clic sur annuler il va executer action1

  4. #4
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut
    Tu peux mettre ton code de ce que tu as fait cela aiderai pour l'analyse
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  5. #5
    Membre confirmé Avatar de cantador
    Homme Profil pro
    Chef de projet
    Inscrit en
    Mars 2006
    Messages
    569
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Chef de projet
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mars 2006
    Messages : 569
    Points : 484
    Points
    484
    Par défaut
    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

  6. #6
    Membre habitué
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Décembre 2012
    Messages
    111
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Transports

    Informations forums :
    Inscription : Décembre 2012
    Messages : 111
    Points : 171
    Points
    171
    Par défaut
    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;

  7. #7
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut
    Citation Envoyé par tarekk73 Voir le message
    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;
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  8. #8
    Membre habitué
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Décembre 2012
    Messages
    111
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Transports

    Informations forums :
    Inscription : Décembre 2012
    Messages : 111
    Points : 171
    Points
    171
    Par défaut
    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

  9. #9
    Membre à l'essai
    Inscrit en
    Mai 2009
    Messages
    24
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Mai 2009
    Messages : 24
    Points : 22
    Points
    22
    Par défaut InputQuery est la meilleur solution
    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.

Discussions similaires

  1. [XL-2010] Utilisation du bouton Annuler de inputbox comme sortie d'instruction pour une date
    Par will-1981 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/09/2014, 10h46
  2. Ajouter un bouton annuler à une InputBox
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 09/03/2009, 16h21
  3. Maitriser le bouton annuler de InputBox
    Par Bubale dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/05/2008, 14h36
  4. Problème avec le bouton Annuler de la fonction Inputbox
    Par r0main2b dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/06/2007, 20h48
  5. [VBA inputbox] le bouton annuler ne marche pas
    Par herendel dans le forum Access
    Réponses: 2
    Dernier message: 15/05/2006, 13h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo