Forcer à écrire en majuscules dans un tedit

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 354 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

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
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...
Messages postés
1719
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 août 2020
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 !
Messages postés
2106
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 ...
Messages postés
2106
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!
Afficher les 10 commentaires

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.