Inputbox [Résolu]

Ali_usto 135 Messages postés lundi 20 novembre 2006Date d'inscription 11 octobre 2010 Dernière intervention - 25 mai 2007 à 20:22 - Dernière réponse : Ali_usto 135 Messages postés lundi 20 novembre 2006Date d'inscription 11 octobre 2010 Dernière intervention
- 25 mai 2007 à 23:56
Salut tout le monde , voila j'utilise des inputbox dans mon programme beaucoup .
mon probleme est le suivant  kand je fait appel a un inputbox et je rempli le champd de saisie , alors si je fais ok  c'est bon la tache s'execute normalment , mais meme quand je fais annuler la tache s'execute de la meme façon comme si j'ai fait ok
  voila un ptit exemple de mon code

procedure Tfessence.Image2Click(Sender: TObject);
var
 ch,ch2:string;
begin
 ch:=InputBox('Nom de la ville', 'Entrer le nom de la ville :', '');
 if essence.Edit1.Text='0' then
  begin
     ch2:=requete.Memo1.Text;
   Insert('  ville,',ch2, 139);
    requete.memo1.Text:=ch2;
.....
    ...
....
.
.....

end;
donc si je fais ok ou bien annuler  dans la inputbox y a la meme chose ki se passe meme si je n'ai rien taper....
je conte sur votre aide
  merci  d'avance.                         Ali
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 25 mai 2007 à 20:48
3
Merci
Salut,

essaye avec InputQuery:

If InputQuery('Nom de la ville', 'Entrer le nom de la ville :',  ch) ThenBegin
   // Ici le code qui doit s'executer si Ok
End;

 
@+
Cirec

<hr size="2" />

Merci Cirec 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de Cirec
Ali_usto 135 Messages postés lundi 20 novembre 2006Date d'inscription 11 octobre 2010 Dernière intervention - 25 mai 2007 à 23:56
0
Merci
Merci Cirec ça a  l'air de bien marcher 
 a la prochaine
Commenter la réponse de Ali_usto

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.