Discussion :

[menoulette]

Bonjour à vous tous ,

bon je souhaite empêcher l'utilisateur à saisir plus qu'un chiffre dans un edit pour se faire j'ai utilisé le code suivant

Code :

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

1
2
3
4
5
6
 
if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;
  if Key = DecimalSeparator then
    if Pos(DecimalSeparator, edit3.Text) <> 0 then
      Key := #0;

Mais ce code ne laisse saisir que des chiffres mais moi je veux que l'utilisateur pourra saisir qu'un seul chiffre dans l'edit ! quelqu'un peut me guider s'il vous plait
Merci d'avance

Cordialement

[Charly910]

Bonjour,

si tu as D7 ou supérieur (en dessous je ne sais pas si cela existe), tu mets ma propriété MaxLength du TEdit à 1

A+

Charly

[menoulette]

Superrrrr merci charly910 ca marche

Merci beaucoup

[Papy214]

Je vais me permettre d'en rajouter, mais pourquoi vérifier le DecimalSeparator si tu ne veux qu'un chiffre ??

Pour ne pouvoir entrer que des chiffres dans un TEdit, j'ai toujours préférer cette solution

[Eric.H]

Dans les dernière version de Delphi (depuis XE ?)
TEdit.NumbersOnly

[Papy214]

Dans les dernière version de Delphi (depuis XE ?)
TEdit.NumbersOnly

Exact, mais là, pas d'indication sur la version utilisée !

[menoulette]

oui désolée j'ai pas enlevé le DécimalSeparator j'ai copié le code depuis un autre programme ou on doit entrer que des chiffres dans le Edit sinon concernant la version j'utilise le Delphi7 je suis tjrs une débutante Merci pour vos réponses

[SergioMaster]

Franchement , un TMaskEdit n'aurait-il pu faire l'affaire ?