Signes

Question

Bonjour,
J'ai parcouru le forum mais je n'ai pas trouvé d'indice pour mon probleme.
Je vous explique.
J'ai mis un SpinEdit (Edit avec les petits haut et bas pour baisser ou augmenter sa valeur)
et dans le SPinEdit, je ne peux taper en caracteres que:

"1 2 3 4 5 6 7 8 9 , - +"

Les signes me derangeaient alors j'avais bien pensé a faire un Abs(mavariable); mais quand je met par exemple 
"++-+-585" forcement ca plante.

Avec le signe virgule, c'est le meme probleme sauf que j'aimerai que quand qqlun tape "45,25" ca supprime la virgule et tout ce qu'il y a apres la virgule...

Ma variable qui receuille la valeur du spin est déclaré en INTEGER (j'ai essayé avec Cardinal aussi)

Si vous pouviez eclairer ma lanterne.
Merci

Manu

cs_Nono40 · Answer

Dans le OnKeyPressed ajoute le code suivant :
procedure TForm1.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Key In ['-','+',',','.'] Then Key:=#7;
end;

Il ne sera alors possible de taper que 0 à 9, les autres touches seront remplacées par un bip. Si tu ne veux pas de bip il faut mettre Key:=#0.

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

cs_manu00 · Answer

Franchement, MERCI Nono, tu me tire une fois de + une sacrée épine du pied.
Ca marche du tonnerre :-)

Bon week end a toi :-)

Manu <== CONTENT :-)

cs_Nono40 · Answer

Bon week-end à toi aussi

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

Signes

3 réponses

Votre réponse

Discussions similaires