Problème avec le point

Bonjour,

Dans une zone réservée à la saisie d'un code PIN je doit permettre la saisie de chiffres uniquement.

Voici le code que j'ai utilisé :

Code:

---

1 2 3 4 5 6

procedure FicheGestionAbonne.OnPINKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; end;

---

Pour moi ce code doit autoriser uniquement les chiffre de 0 à 9, la touche delete et la touche de retour arrière.
Cependant je peux saisir le point et je ne comprends pas pourquoi.

Je peux aiséments filtrer le point tout seul mais je voudrais comprendre (pour ma culture personnelle) pourquoi ça ne fonctionne pas.

Quelqu'un a une idée ?

je te donne un indice : les touches "Back" et "Delete" fonctionnent également :p

Paul, ta réponse est très subtile :mrgreen:

Moi, j'ajouterais que VK_DELETE = 46 = Code ASCII ... mais c'est pas du tout subtile !

Il faudrait utiliser OnKeyDown au lieu de OnKeyPress !

Salut

Pour ajouter de l'eau au moulin, je préciserais que l'appui sur la touche DELETE n'est pas intercepté par le OnKeyPress. :mrgreen: