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

Version imprimable

24/01/2007, 17h11
madnux

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

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 ? :roll:
24/01/2007, 17h24
blondelle

Salut madnux
Un lien qui je pense t'aidera

Citation:

http://chgi.developpez.com/tips1/#tips12
24/01/2007, 17h25
Pendary

Voici le prototype de onkeydown

Code:

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

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

Code:

chr(Key)

nous fournit le caractère taper par l'utilisateur :)
24/01/2007, 19h43
madnux

Citation:

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.

:D
24/01/2007, 20h16
blondelle

Je suis content pour toi.
A+
25/01/2007, 15h31
Alfred12

Un TMaskEdit doit également fonctionner.
25/01/2007, 17h47
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...
25/01/2007, 17h51
lenrok

RECTIFICATION ERREUR,:oops: :oops:

Citation:

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

Bonne Continuation...

Code:

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

01/02/2007, 10h23
Neilos

As tu trouvé ton bonheur ?
Si oui, un petit tag :resolu: s'il te plaît.

Merci !
03/02/2007, 15h40
madnux

Merci à tous pour vos réponses :)

Le soft fonctionne maintenant comme je le souhaitais !

Encore merci ... :lol:
03/02/2007, 15h46
madnux

Citation:

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