Filtrer un edit
crogger
Messages postés
32
Date d'inscription
vendredi 5 avril 2002
Statut
Membre
Dernière intervention
23 octobre 2006
-
6 mai 2002 à 12:00
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 6 mai 2002 à 14:49
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 6 mai 2002 à 14:49
1 réponse
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
6 mai 2002 à 14:49
6 mai 2002 à 14:49
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.
--- :sleepy) Nono du Moulin :sleepy) ---
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.
--- :sleepy) Nono du Moulin :sleepy) ---
