Contrôle saisie clavier TEdit | Petite question bête..

**madnux** · 24/01/2007, 17h11

Bonjour à tous,

Je voudrais contrôler la saisie clavier sur un TEdit. J'ai en fait besoin que l'utilisateur qui rentre les données soit obligé de rentrer des chiffres. Donc que lorsqu'il essaye de rentrer une lettre par exemple, la lettre ne s'affiche pas.

J'ai pensé à OnKeyDown mais après je n'arrive pas à trouver le bon cheminement de code pour avoir ce que je veux...

Pourriez-vous m'éclairer ?

**blondelle** · 24/01/2007, 17h24

Salut madnux
Un lien qui je pense t'aidera

http://chgi.developpez.com/tips1/#tips12

**Pendary** · 24/01/2007, 17h25

Voici le prototype de onkeydown

Code :

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

(TObject *Sender, Word &Key, TShiftState Shift)

je pense que t udevrais tester l'état de Key, l'aide nous dis que

Code :

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

chr(Key)

nous fournit le caractère taper par l'utilisateur

**madnux** · 24/01/2007, 19h43

Envoyé par blondelle

Salut madnux
Un lien qui je pense t'aidera

Je te remercie Blondelle

Tu m'as vraiment bien aidé la dessus

Je ne pense pas que j'aurais pu trouver seul.

**blondelle** · 24/01/2007, 20h16

Je suis content pour toi.
A+

**Alfred12** · 25/01/2007, 15h31

Un TMaskEdit doit également fonctionner.

**lenrok** · 25/01/2007, 17h47

Bonjour madnux,

Comme l'a suggéré Alfred12, l'utilisation de TEditMask est plus simple à gérer dans ton cas :
Déclare dans la fenêtre PROPRIETE de TEditMask1 :
- MaxLength :

= 0 //nbre caractère infini

= 4 //nbre caractère LIMITE à 4 caractères

- EditMask :

0 caractère numérique OBLIGATOIRE

9 caractère numérique NON OBLIGATOIRE

A caractère alphanumérique OBLIGATOIRE

a caractère alphanumérique NON OBLIGATOIRE

L caractère alphabètique OBLIGATOIRE

l caractère alphabètique OBLIGATOIRE

Bon Courage...

**lenrok** · 25/01/2007, 17h51

RECTIFICATION ERREUR,

L caractère alphabètique OBLIGATOIRE
l caractère alphabètique NON OBLIGATOIRE

Bonne Continuation...

**Phoenix_Blue** · 27/01/2007, 21h43

Code :

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

1
2
3
4
5
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if((Key<'0')||(Key>'9')) Key=0;
}

**Neilos** · 01/02/2007, 10h23

As tu trouvé ton bonheur ?
Si oui, un petit tag

s'il te plaît.

Merci !

**madnux** · 03/02/2007, 15h40

Merci à tous pour vos réponses

Le soft fonctionne maintenant comme je le souhaitais !

Encore merci ...

**madnux** · 03/02/2007, 15h46

Envoyé par lenrok

Bonjour madnux,

Comme l'a suggéré Alfred12, l'utilisation de TEditMask est plus simple à gérer dans ton cas :
Déclare dans la fenêtre PROPRIETE de TEditMask1 :
- MaxLength :

= 0 //nbre caractère infini

= 4 //nbre caractère LIMITE à 4 caractères

- EditMask :

0 caractère numérique OBLIGATOIRE

9 caractère numérique NON OBLIGATOIRE

A caractère alphanumérique OBLIGATOIRE

a caractère alphanumérique NON OBLIGATOIRE

L caractère alphabètique OBLIGATOIRE

l caractère alphabètique OBLIGATOIRE

Bon Courage...

A ce propos, j'ai préféré cette solution à la solution OnKeyPress, beaucoup plus puissante

Merci