Forcer à écrire en majuscules dans un tedit

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 186 fois - Téléchargée 28 fois

Contenu du snippet

Une petite procedure qui permet de forcer l'utilisateur à écrire en majuscule dans un TEdit. C'est tout !!!

Source / Exemple :


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['a'..'z'] then
    Key := UpCase(Key);
end;

Conclusion :


Pour info : ça marche aussi avec les TMemo et les TRichEdit.

A voir également

Ajouter un commentaire

Commentaires

zulot
Messages postés
39
Date d'inscription
dimanche 23 mai 2004
Statut
Membre
Dernière intervention
20 mai 2007

Et puis c'est en faisant des ereurs qu'on apprend
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018

...et n'oublions pas que déposer un p'tit bout de code permet de garder le contact...
japee
Messages postés
1715
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
2 décembre 2019
3
Hé, flo1984, n'efface pas ton source, modifie le plutôt !
Ca nous arrive à tous de "taper à côté de la plaque", les commentaires des membres sont là pour nous éclairer.
A part dans un TEdit (merci Mauricio pour "CharCase"), ton code (remanié) peut être utile.
Et puis de réinventer une fonction déjà existante dans Delphi (mais qu'on ne connaissait pas) est un excellent exercice de programmation.
T'en fais pas, on est pas mal de débutants, ici ;)
Ca doit pas empêcher de vérifier soigneusement son source avant de le poster >:(
Bonne prog' à toi, ne mollis pas !
cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
je voulais dire: qui est VRAI pour tous les chiffres entre 26 et 27 ...
cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
Non, laisse le ...
Ton code if Key in ['a'..'z'] then est interessant pour ceux qui ne savent pas que l' on peut jouer avec les intervalles ...
On peut faire aussi Num in [26..57] qui est vari pour tous les chiffres entre 26 et 57!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.