Contrôle de saisie

Résolu
pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009 - 14 avril 2005 à 11:40
pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009 - 14 avril 2005 à 13:20
Bonjour tout le monde.
Quelqu'un pourrait-il m'aider pour les contrôle de saisie. J'aimerais contrôler si l'utilisateur entre des chiffre dans Edit. J'aimerais que si l'utilisateur entre autre chose que des chiffres cela ne s'affiche pas dans l'edit par contre si il entre des chiffres il faudrait qu'ils s'affichent dans l'edit toujours en gardant les premier entré.
Ex : a --> refusé
1 --> accepté donc dans l'edit doit être affiché : "1"
h --> refusé
4 --> accepté et dans l'edit doit être affiché : "14"
etc ...

Merci d'avance pour votre aide !

pseudoOM

2 réponses

cs_barbichette Messages postés 220 Date d'inscription lundi 30 octobre 2000 Statut Membre Dernière intervention 15 juillet 2013
14 avril 2005 à 11:49
salut,
dans l'évenement OnKeyPress
tu place :
if not (key in ['0'..'9']) then key:=#0;
Attention si tu veux garder la possibilité d'effacer, de copier, coller...
faire :
if not (key in ['0'..'9',#0..#31]) then key:=#0;

Enfin, si tu veux placer des chiffres à virgules valides, faire :

if (key='.') and (pos('.',edit1.Text)<>0) then key:=#0;
if not (key in ['.','0'..'9',#0..#31]) then key:=#0;

Maintenant, il me semble qu'il y a des exemples sur ce site, mais je ne remet pas la main dessus.

Barbichette
3
pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009 1
14 avril 2005 à 13:20
J'avais trouvé entre temps mais merci quand même c'est sympa !

pseudoOM
0
Rejoignez-nous