Erreur de saisi [Résolu]

Signaler
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
-
manil01
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008
-
bonjour
comment afficher un message en cas d erreur d'ecriture dans un edit par exemple je dois faire entrer un nom mais par erreur de frape je saisi un entier

<!-- / message -->

4 réponses

Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011

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
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
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="" />
Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011

Salut;

oui oui c mieu Merci bcp Monsieur Cirec

@+

haftari.fouad.
Messages postés
5
Date d'inscription
lundi 3 décembre 2007
Statut
Membre
Dernière intervention
5 janvier 2008

merci beaucoup j ai pu resoudre le problem