Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UN TEDIT UNIQUEMENT NUMÉRIQUE


Information sur la source

Catégorie :Composants Niveau : Débutant Date de création : 07/02/2004 Date de mise à jour : 08/02/2004 10:36:12 Vu / téléchargé: 3 073 / 505

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Voici un nouveau composant qui peut s'avérer utile...

C'est un TEdit qui permet de saisir uniquement des chiffres, ce que j'appelle un TEditNombre.

La saisie du nombre et d'un nombre uniquement peut se faire directement dans le composant ou soit dans la propriété "Nombre".

La présentation est exactement la même que la fonction "FloatToStrF", vous avez donc les mêmes paramétres pour régler votre présentation, c'est à dire :
Le format : ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency
La précision : 0 à 18
Le Digits : 0 à 18

Une option est proposée pour un affichage automatique d'une unité.

Et pour finir, ce qui fait la richesse de ce composant, c'est qu'en vous placant à droite d'un chiffre et en appuyant sur la flêche haut ou bas, vous pouvez incrémenter ou décrémenter le chiffre en question. J'ai fait fait ce composant pour ca car j'avais besoin de cette fonctionnalité.

J'espère que ce composant vous sera utile et qu'il ne viendra pas encombrer le site...
 

Conclusion

Il faut installer le composant TEditNombre
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de Pag le 08/02/2004 06:58:04

IL y a plus simple

procedure TForm1.CalcKeyPress(Sender: TObject; var Key: Char);

begin
   if not (key in [#8,'0'.. '9']) then key := #0;
end
end;

ou pour une calculatrice

procedure TForm1.CalcKeyPress(Sender: TObject; var Key: Char);
begin
  test := (Sender as TEdit).Text;
  deci := AnsiPos(',',test);
  if cl = 1 then Calc.Clear;
  cl := 0;
  
  case key of

    #44,#46 : if deci = 0
                then  Begin
                        key := ',';
                        deci :=1;
                      end
              else key := #0;

         '*': begin Button15Click(Sender); key := #0; end;

         '/': begin Button16Click(Sender); key := #0; end;

         '-': begin Button17Click(Sender); key := #0; end;

         '+': begin Button18Click(Sender); key := #0; end;

         #13: begin Button6Click(Sender); key := #0; end;

    else if not (key in [#8,'0'.. '9'])
            then key := #0;
  
  end;

OU tout ce qu'on veux....

signaler à un administrateur
Commentaire de yoghisan le 08/02/2004 10:33:14

Attends, moi je te parle d'un nouveau composant avec ces fonctionnalités et non d'un composant (TEdit) surchargé.

La différence est loin d'etre négligeable ! C'est ce qui fait tout d'ailleurs !

signaler à un administrateur
Commentaire de Pag le 09/02/2004 07:31:35

Il ne faut pas oublier que c'est de la programmation orientée objet.

ObjetParant ---> TEdit ---> TEditNombre

signaler à un administrateur
Commentaire de ffert le 24/02/2004 16:10:42

Petite précision pour le commentaire ajouté par Pag...
Au lieu d'écrire :
deci := AnsiPos(',',test);
...
Key := ',';

Il est plus judicieux d'écrire
deci := AnsiPos(DecimalSeparator, test);
Key := DecimalSeparator;

Pour que ce soit compatible sur tous les systèmes (en fonction des paramètres régionaux locaux à la machine)...

Séparateur décimal : le point (1.00)  ou la virgule (1,00)

J'ai pas encore testé ce composant... Donc pour le reste on verra plus tard. Mais il a l'air sympa...

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,14 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.