Discussion :

[heider]

Salut a tous, je cherche le moyen de mettre des données numériques (dans un Edit) grace au pavé numérique, mais il ne faut pas qu'il y ait des lettres, il faut absolument qu'il n'y ait qu'un nombre, y aurait t'il une fonction qui permettrait de gérer ce genre de flux d'entrée?
Merci a tous.

[TicTacToe]

se servir de l'événement OnKeyPress de cette manière:

Code :

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

1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if ( key < #$30 ) or ( key > #$39 )
       then Key := #0;
end;

si tu veux gérer les réels, ajoute le cas du '.' ou ',' et/ou 'E' pour exposant

[heider]

salut, merci pour tes conseils, je viens d'essayer mais ca ne marche pas, il n'y a pas d'erreur de détectée dans ke programme, il tourne et tout, mais quand je presse sur le pavé numérique, il ne se passe rien ...

[TicTacToe]

AH ... bizzare,
Ce code ne tient pas compte du pavé numérique, il laisse passer que les chiffres (pavé ou pas)...

Il n'est pas basé sur les KeyCodes des touches, mais sur les chiffres tapés.

question idiote, tu es sur que ton pavé est en numlock activé ?

[heider]

mdr, oui oui, j'ai vérifié a deux fois, en lisant le code, j'ai compris, donc j'ai essayé aussi avec les MAJ+ mais ca ne marchais pas no plus ... ^^

[Abadianet]

Je confirme le code de TicTacToe et en ajoutant la touche BackSpace pour effacer c'est plus pratique !

Code :

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

1
2
if ((key < #$30) or (key > #$39)) and (key <> #$8) then
  Key := #0;

Abadiane

[TicTacToe]

exact

[NoisetteProd]

http://delphi.developpez.com/faq/?pa...propri#numbers

Merci de mettre