Discussion :

[benj63]

Bonjour,

Je souhaiterai faire des zones "Edit" telles qu'elles ne puissent accepter que des chiffres, et pas de caractères alphabétiques.

J'ai donc créé des MaskEdit, comme indiqué dans certaines réponses à des messages précédents.

Ces zones doivent accepter des chiffres compris entre 0 et 99 donc j'ai mis comme masque 99

Le problème c'est qu'il me met des ____ dont je m'en passerai bien !! Car par la suite des chiffres avec des __, ce ne sont pas des chiffres, et pour les convertir en int, c'est pas gagné !

Existe-t'il une solution ?
Merci !

[JEG]

pour les "____" dans la zone d'édition du masque, il y a en dessous un case qui te permet de choisir quel caractère tu veux mettre à la place d'un "_"

[benj63]

Il y a des fois, je vous jure,

Ca donne donc 99;1; ...

Merci

[benj63]

Il reste malgré tout un problème !!! Car si je mets " " (espace) au lieu de "_", la fonction ToInt() ne fonctionne pas !! Elle ne peut convertir en chiffres une chaine contenant des espaces !

Et on est obligé de mettre une valeur pour l'espace... Que mettre alors ?

[benj63]

Il faut peut-etre utiliser autre chose que les masques ?

[CGi]

Utilise un TEdit

Exemple:
Dans l'évenement OnCreate de ta fiche pour Edit1 :

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::FormCreate(TObject *Sender) 
{ 
   SetWindowLong(Edit1->Handle,GWL_STYLE, 
                GetWindowLong(Edit1->Handle,GWL_STYLE) 
                                            | ES_NUMBER ); 
}

[benj63]

Merci, c nickel
Peut-on spécifier dans le meme temps, le nombre maximum de caractères acceptés, ou l'intervalle de données acceptable ?

[henderson]

Moi aussi j'ai eu un truc comme ça à faire...
A l'époque, je me suis contenté d'intercepter
en tenant compte du focus de l'Edit

Propriété KeyPreview de la fiche sur true
puis OnKeyPress :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Form1->ActiveControl==Edit1)
    {
    if((Key==VK_LEFT)||(Key==VK_RIGHT)||(Key==VK_BACK))
        {
	//on laisse passer ceux là...VK_RETURN aussi si on veut
        return;
        }
    if((Key<'0')||(Key>'9'))
        {
	//à la trappe !
        Key=0;
        }
    }

Visiblement, ce n'était qu'une bidouille !

[CGi]

Dans l'inspecteur d'objet tu met la propriété MaxLength de ton TEdit
differente de 0 .
exemple si tu veut 2 caractères maxi tu met MaxLength à 2.