Bas les masques

Version imprimable

03/07/2002, 15h55
benj63

Bas les masques

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 !! :evilred: 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 !
03/07/2002, 16h02
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 "_"
03/07/2002, 16h12
benj63

Il y a des fois, je vous jure, :scarymov:

Ca donne donc 99;1; ...

Merci
03/07/2002, 16h20
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 ?
03/07/2002, 16h38
benj63

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

Utilise un TEdit

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

Code:

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

03/07/2002, 16h56
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 ?

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:

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 !

03/07/2002, 17h05
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.