saut a tous en fait je ne voudrais saisir que des chiffres dans un TEDIT de telle sorte que tous caracteres ou lettre saisis ne s'affiche pas comment faire
saut a tous en fait je ne voudrais saisir que des chiffres dans un TEDIT de telle sorte que tous caracteres ou lettre saisis ne s'affiche pas comment faire
Dans l'évenement onkeypress
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 if key not in [0..9] then key := #0
salut,
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 procedureTform1.Edit1keyPress(sender:TObject; var key: char); begin if not (key in [#8, '0'..'9']) then key:=#0; end;
merci bien ca marche a+++
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager