begin process at 2010 02 10 11:12:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > FORCER À ÉCRIRE EN MAJUSCULES DANS UN TEDIT

FORCER À ÉCRIRE EN MAJUSCULES DANS UN TEDIT


 Information sur la source

Note :
2,5 / 10 - par 4 personnes
2,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Classé sous :tedit, majuscule, ecrire, forcer Niveau :Débutant Date de création :02/07/2004 Vu :3 232
Auteur : flo1984

Ecrire un message privé
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  • begin
  • if Key in ['a'..'z'] then
  • Key := UpCase(Key);
  • end;
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.


 Sources du même auteur

Source avec Zip Source avec une capture TRAINER POUR PINDBALL 3D
DÉSACTIVER LE BUREAU DE WINDOWS
GRADIENT FORM
Source avec Zip COMMANDE DES SCROLLS D'UN TMEMO OU D'UN TRICHEDIT
Source avec Zip CRÉATION DYNAMIQUE DE FICHE SANS RESSOURCE
Toutes les sources de flo1984

 Sources de la même categorie

Source avec Zip Source avec une capture UTILISER UNE DLL INCLUSE EN RESSOURCES par Bacterius
Source avec Zip Source avec une capture IMAGE DANS UN TDBGRID par HAFTARIFOUAD
Source avec Zip Source avec une capture [ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U... par cirec
Source avec Zip Source avec une capture MESSAGEDLG PERSONNALISÉ par HAFTARIFOUAD
Source avec Zip Source avec une capture COMMENT DESSINER SUR UN TCANVAS LE TEXTE D'UNE FORMULE CHIMI... par pseudo3
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture TEDIT À LE FAÇON D'INTERNET EXPLORER 7 par bubulemaster
LIBRAIRIE DE CONTROLE (FILTRE) DE TOUCHE DANS UN TEDIT par patdimby
Source avec Zip Source avec une capture CONTROLER UN "COPIER/COLLER" DANS UN TEDIT par cirec
Source avec Zip FAIRE DÉFILER UNE PHRASE par djfeeler
Source avec Zip Source avec une capture DBGRID AVEC ZONE DE RECHERCHE,TRI,FLECHES,MEMOS,MOLETTE,COUL... par pouicky

Commentaires et avis

Commentaire de japee le 02/07/2004 12:48:33 administrateur CS

(Commentaire amical et non agressif...) ;)

Intéressant, mais peut-être un peu "élémentaire" ?
A ce propos, essaye de saisir "élémentaire" dans l'Edit...
Une solution:

Key := AnsiUpperCase(Key)[1];

Tous les caractères acccentués (clavier étendu) seront ainsi pris en compte.

Commentaire de japee le 02/07/2004 12:55:21 administrateur CS

Précision:
il faut bien sûr supprimer l'instruction "if Key in ['a'..'z'] then" pour utiliser "Key := AnsiUpperCase(Key)[1];"
Ca va sans dire, mais enfin... ;)

Commentaire de MAURICIO le 02/07/2004 14:43:11

(Autre commentaire amical et non agressif...) ;)
C' est trop évident comme code! Bientôt, tu vas nous dire comment redimensionner une TForm.

Aller, je te donne un scoop:
Dans les TEdit tu as une propriété qui s' appelle 'CharCase',
choisi l' option ecUpperCase. Et voilà!

Commentaire de japee le 02/07/2004 16:19:48 administrateur CS

Ah oui, bien vu Mauricio pour la propriété CharCase des TEdit... L'avais un poil oubliée, celle-là... :(
Reste donc valable, sauf erreur ou omission (?) pour les TMemo et assimilés...

Commentaire de flo1984 le 02/07/2004 18:15:22

Euh! Comment on fait pour effacer un source :-p

Commentaire de MAURICIO le 02/07/2004 18:56:48

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!


Commentaire de MAURICIO le 02/07/2004 18:58:11

je voulais dire: qui est VRAI pour tous les chiffres entre 26 et 27 ...

Commentaire de japee le 03/07/2004 15:32:01 administrateur CS

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 !

Commentaire de Debiars le 05/07/2004 10:00:14

...et n'oublions pas que déposer un p'tit bout de code permet de garder le contact...

Commentaire de zulot le 12/09/2004 23:26:35

Et puis c'est en faisant des ereurs qu'on apprend

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Forcer la saisie en majuscule dans un Edit ? [ par Val08000 ] Bonjour !Je suis débutant en delphi !Je voudrais savoir comment faire pour forcer la saisie en majuscule dans un Edit afin de rentrer cette Forcer les majuscule dans un dbgrid [ par Frank19 ] le titre du toutjveux que l'usager puisse seulement écrire en majuscule dans un dbgrid.Est-ce possible ?merci Utiliser une dbgrid sans base de donnees [ par Servalito ] Voila je me demandais comment faire pour ecrire moi meme dans une Dbgris sans passer par une base de donnes.Ce que je ve c pouvoir mettre les champs m Comment ecrire dans un EXE [ par norton ] Hello, comment dois-je faire pour ouvrir un EXE en binaire et ecrire à l'interieur ?je sais le faire en visual basic mais pas en delphi .sytaxe en vb: TEdit, comment mettre le texte à droite ? [ par cousingaulois ] Comment faire pour que le texte d'un composant TEdit soit centré à droite ? c vachement important merci de votre aide Création de composant à l'exécution [ par birdyz ] Bonjour à tousLors de l'exécution de mon prog, je doit créer X composant Tedit sur une forme. Suis je obligé de déclaré X fois Edit1, Edit2, ..., ou p Composants et couleurs [ par stailer ] Salut tout le monde !Donc la j'aurai une question pas facile du tout... Du moins je pense :- Comment écrire dans un Tedit ou bien sur une ligne d'un T Interdire le valeur zéro dans un TEdit [ par PoPoV83 ] Salut Quelqu'un saurait-il comment empecher de rentrer un zero dans un TEdit. Je bosse sur Delphi 5Merci d'avance Lire et ecrire dans un fichier TXT [ par norton ] Hello, alors j'aimerai pouvoir écrire dans un fichier TXT et que au lançemment de la form il lise le contenu du fichier TXT et l'ecrive dans une listB Forcer la fermeture d'une fenêtre [ par jasam ] Je voudrais pouvoir fermer une form au moment de son activation sous delphi 6, par l'execution d'une instruction dans l'évenement OnActivate de la For


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,076 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)