Forcer à écrire en majuscules dans un tedit
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 408 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 !!!
Pour info : ça marche aussi avec les TMemo et les TRichEdit.
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
- Forcer à
- ASM : Force une chaine en majuscule avec and - CodeS SourceS - Guide
- Javascript : Forcer le texte en majuscules/minuscules - CodeS SourceS - Guide
- Forcer la 1er lettre majuscule dans une TxtBox ✓ - Forum - Visual Basic 6
- Forcer la saisie en majuscule dans un Edit ? ✓ - Forum - Delphi / Pascal
- Javascript : Ecrire facilement en minuscules, majuscules, en couleurs, ... - CodeS SourceS - Guide
Commentaires
- Messages postés
-
1721
- Date d'inscription
- vendredi 27 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 30 août 2020
4Ca 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- Messages postés
-
2106
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
5Ton 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.