Retour arrière dans un edit n'acceptant que des chiffres

Salut tout le monde

Code:

---

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

Citation:

---

Envoyé par damene

Salut tout le monde

Code:

---

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... :D

Essayez plutôt :

Code:

---

1 2 3

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

---

a+ ;)

Citation:

---

Envoyé par +bsdocuments+

Je doute... :D

Essayez plutôt :

Code:

---

1 2 3

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

---

a+ ;)

---

C'est exactement ce que je voulais.
Merci