TmaskEdit et caractères A à Z et nombres
Résolu
furax13
ni69
- Messages postés
- 90
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Membre
- Dernière intervention
- 24 avril 2008
ni69
- Messages postés
- 1418
- Date d'inscription
- samedi 12 juin 2004
- Statut
- Membre
- Dernière intervention
- 5 juillet 2010
A voir également:
- Delphi tmaskedit
- Tmaskedit delphi - Meilleures réponses
- Delphi z - Meilleures réponses
- Tmaskedit delphi ✓ - Forum - Delphi / Pascal
- TMASKEDIT et calcul - Forum - Delphi / Pascal
- Delphi format - Conseils pratiques - Delphi
- Delphi type - Conseils pratiques - Delphi
- Delphi class - Conseils pratiques - Delphi
2 réponses
ni69
9 févr. 2005 à 13:19
- Messages postés
- 1418
- Date d'inscription
- samedi 12 juin 2004
- Statut
- Membre
- Dernière intervention
- 5 juillet 2010
9 févr. 2005 à 13:19
Dans l'événement OnKeyPress de ton MaskEdit, mets ceci :
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key In #8,#13,'0'..'9','a'..'z','A'..'Z') Then Key:=#9; // Renvoie un bip si le caractère est incorrect
end;
puis mets 16 dans la propriété MaxLength de ton MaskEdit
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key In #8,#13,'0'..'9','a'..'z','A'..'Z') Then Key:=#9; // Renvoie un bip si le caractère est incorrect
end;
puis mets 16 dans la propriété MaxLength de ton MaskEdit
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
