Utilise le OnKeyPressed :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Not (Key In [#8,#13,'0'..'9']) Then Key:=#9;
end;
#8 est la touche effacement arrière.
#13 est la touche ENTER.
et #9 effectue un bip, ainsi toutes les touches invalides seront remplacées par des bips.
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
salut, comment puis-je " filtrer" le texte tapé dans un edit...je voudrais que l'on puis uniquement y taper des chiffres et surtout pas de lettres...pour eviter les erreurs du prog..merci :-)