Premier caractère edit
Résolu
manytime
Messages postés
23
Date d'inscription
mercredi 18 janvier 2006
Statut
Membre
Dernière intervention
2 avril 2008
-
15 févr. 2006 à 14:57
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 15 févr. 2006 à 16:28
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 15 févr. 2006 à 16:28
2 réponses
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
15 févr. 2006 à 16:28
15 févr. 2006 à 16:28
j'ai été un peu vite il faut rajouter un test de chaine vide sous peine de plantage
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (edit1.Text<>'')and(edit1.Text[1] in ['0'..'9']) then
begin
MessageDlg('Valeure interdite', mtError , [mbOk], 0);
edit1.SetFocus;
end;
end;
@+
jlen
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (edit1.Text<>'')and(edit1.Text[1] in ['0'..'9']) then
begin
MessageDlg('Valeure interdite', mtError , [mbOk], 0);
edit1.SetFocus;
end;
end;
@+
jlen
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
15 févr. 2006 à 16:22
15 févr. 2006 à 16:22
salut ,
dans le OnExit de ton edit
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if edit1.Text[1] in ['0'..'9'] then
begin
MessageDlg('Valeure interdite', mtError , [mbOk], 0);
edit1.SetFocus;
end;
end;
@+
jlen
dans le OnExit de ton edit
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if edit1.Text[1] in ['0'..'9'] then
begin
MessageDlg('Valeure interdite', mtError , [mbOk], 0);
edit1.SetFocus;
end;
end;
@+
jlen
