Discussion :

[popo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Paul TOTH]

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

[ShaiLeTroll]

Paul, ta réponse est très subtile

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

Il faudrait utiliser OnKeyDown au lieu de OnKeyPress !

[Cl@udius]

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.