Erreur de saisi
Résolu
manil01
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
-
25 déc. 2007 à 19:08
manil01 Messages postés 5 Date d'inscription lundi 3 décembre 2007 Statut Membre Dernière intervention 5 janvier 2008 - 25 déc. 2007 à 23:46
manil01 Messages postés 5 Date d'inscription lundi 3 décembre 2007 Statut Membre Dernière intervention 5 janvier 2008 - 25 déc. 2007 à 23:46
4 réponses
HAFTARIFOUAD
Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011
25 déc. 2007 à 20:42
25 déc. 2007 à 20:42
Bonjour manil01 ;-)
en réponse à votre question j'ai qlq idées à vous proposer
pour limiter la saisie dans un TEdit en sisissant que les entiers voilà, vs pouvez utiliser le code suivant:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9',#8] then key:=key else key:=#0;
end;
et pour vous préciser et de répondre à votre question utilisez le code suivant:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then
begin
key:=#0;
ShowMessage('Votre message d''érreur');
end;
end;
Bonne chance, et bonne programmation.
haftari.fouad
en réponse à votre question j'ai qlq idées à vous proposer
pour limiter la saisie dans un TEdit en sisissant que les entiers voilà, vs pouvez utiliser le code suivant:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9',#8] then key:=key else key:=#0;
end;
et pour vous préciser et de répondre à votre question utilisez le code suivant:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then
begin
key:=#0;
ShowMessage('Votre message d''érreur');
end;
end;
Bonne chance, et bonne programmation.
haftari.fouad
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
25 déc. 2007 à 20:51
25 déc. 2007 à 20:51
Salut,
utilise un MaskEdit à la place d'un Edit
et tu n'auras pas besoin de faire la gestion des touches comme le propose HaftariFouad
@+
Cirec
<hr siz="" />
utilise un MaskEdit à la place d'un Edit
et tu n'auras pas besoin de faire la gestion des touches comme le propose HaftariFouad
@+
Cirec
<hr siz="" />
HAFTARIFOUAD
Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011
25 déc. 2007 à 20:55
25 déc. 2007 à 20:55
Salut;
oui oui c mieu Merci bcp Monsieur Cirec
@+
haftari.fouad.
oui oui c mieu Merci bcp Monsieur Cirec
@+
haftari.fouad.
manil01
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
25 déc. 2007 à 23:46
25 déc. 2007 à 23:46
merci beaucoup j ai pu resoudre le problem
