1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

T edit [Résolu]

Signaler
Messages postés
34
Date d'inscription
mercredi 17 septembre 2008
Statut
Membre
Dernière intervention
31 mars 2014
 -
Messages postés
77
Date d'inscription
mercredi 15 mars 2006
Statut
Membre
Dernière intervention
22 février 2011
 -
bonjour a tous
je developpe une ptitt application et je souhaite savoir kelke truc 

 comment faire pour limiter certaines valeurs dans un t edit ?  c'est a dire que je souhaite entre rien que les valeurs allant de 0 à 20( ex : 12, 13,5, 18 ,0,5 etc...) et pas plus dans un t edit que j'ai bloqué pour ne recevoir que des valeurs numeriques  
merci
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
 30
if not (StrToIntDef(TEdit(Sender).Text, -1) in [0..20]) then
begin
  TEdit(Sender).Clear;
  ShowMessage('Ne doit contenir que des chiffres de 0 à 20');
end;




<hr size="2" width="100%" />
Réponse 2 / 3
Messages postés
77
Date d'inscription
mercredi 15 mars 2006
Statut
Membre
Dernière intervention
22 février 2011
Dans le FormCreate tu peux mettre :

SetWindowLongA(monTEdit.Handle, GWL_STYLE,  GetWindowLongA(monTEdit.Handle, GWL_STYLE) or ES_NUMBER);

Ainsi, même en faisant un copier coller, tu ne peux pas mettre de texte dedans.
Par contre il faut combiner avec les autres solutions pour limiter la saisie de chiffres entre 0 et 20.
Réponse 3 / 3
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
 13
salut

sur le OnExit du TEdit :

if not StrToIntDef(TEdit(Sender).Text, -1) in [0..20] then
begin
  TEdit(Sender).Clear;
  ShowMessage('Ne doit contenir que des chiffres de 0 à 20');
end;

a+
Répondre Posez votre question