Discussion :

[damene]

Salut tout le monde

Code :

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

1
2
if not (Key in ['a'..'z', 'A'..'Z', Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;

permet effectivement de ne rentrer que des chiffres.

Mon problème est d'effacer le dernier chiffre rentré?

Chr(VK_BACK) devait le permettre (en appuyant sur la touche retour en arrière). Hélas non.

Je suis obbligé de revenir en arrière en tapant une fois 'flèche gauche' et utiser la touche supprime (VK_DELETE) pour supprimer le dernier chiffre rentré.

Le help de delphi "code touches virtuelles" confirme que seul Chr(VK_BACK) permet le retour arrière.

Où se situe mon erreur?

Merci

[bs.box]

Salut tout le monde

Code :

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

1
2
if not (Key in ['a'..'z', 'A'..'Z', Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;

permet effectivement de ne rentrer que des chiffres.

Mon problème est d'effacer le dernier chiffre rentré?
......

Je doute...

Essayez plutôt :

Code :

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

1
2
3
 
  if not (Key in ['0'..'9',#8,#13])
     then Key:=#0

a+

[damene]

Je doute...

Essayez plutôt :

Code :

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

1
2
3
 
  if not (Key in ['0'..'9',#8,#13])
     then Key:=#0

a+

C'est exactement ce que je voulais.
Merci