Discussion :

[technoweb]

Salut à tous !

Est-ce possible d'empêcher la saisie des caractères non numériques dans une boîte ComboBox ? ou faut-il implémenter un code de contrôle de saisie à évènement tel que OnKeyPress ou OnKeyDown...? Si oui merci de m'expliquer une implémentation.

(J'ai éssayé de chercher dans les F.A.Q. ainsi que dans les messages du Forum mais j'ai pas trouvé de réponses directes à ce sujet)

Merci d'avance.

Cordialement Technoweb;

[ShaiLeTroll]

pourtant ça y est !

Code :

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

1
2
3
4
procedure TFrmTest.EdOtherKeyPress(Sender: TObject;var Key: Char);
begin
   if not (Key in ['0'..'9', #8, #13]) then Key := #0;
end;

[technoweb]

Je vous remerci énormément "ShaiLeTroll", je suis stupéfait par la rapidité de votre réponse.

Je me disais bien que c'est une question qui doit revenir souvent j'ai cherché dans les F.A.Q. et messages mais sans résultats.ça m'a échappé.

Encore merci.

[CapJack]

Salut.

Évènement OnKeyPress.

Code :

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

1
2
3
4
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9']) then Key := #0;
end;

http://www.developpez.com/delphi/faq/?page=compopropri

Edit : Arg ! Grillé par le Troll...