Comment empêcher la saisie de caratère non numérique dans un ComboBox ?

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;

pourtant ça y est !

Code:

---

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;

---

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.;)

Salut.

Évènement OnKeyPress.

Code:

---

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... :)