AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 10 12:31:09
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FORCER À ÉCRIRE EN MAJUSCULES DANS UN TEDIT


Information sur la source

Catégorie :Trucs & Astuces Classé sous : tedit, majuscule, ecrire, forcer Niveau : Débutant Date de création : 02/07/2004 Vu : 2 930
Auteur : flo1984 Ecrire un message privé
Note :
2,5 / 10 - par 4 personnes
2,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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.
 

Commentaires et avis

signaler à un administrateur
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.

signaler à un administrateur
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... ;)

signaler à un administrateur
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à!

signaler à un administrateur
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...

signaler à un administrateur
Commentaire de flo1984 le 02/07/2004 18:15:22

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

signaler à un administrateur
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!


signaler à un administrateur
Commentaire de MAURICIO le 02/07/2004 18:58:11

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

signaler à un administrateur
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 !

signaler à un administrateur
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...

signaler à un administrateur
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 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 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 Position du Curseur dans un TEdit [ par tichau4 ] Bonjour, Est-il possible de connaitre la position du curseur dans un composant TEdit, et de la changer, si non existe t-il un composant capable de fa ecrire et lire une date dans une table [ par richarddum ] Salut, J'essaye d'accéder via une requete SQL à un champ date (SELECT, INSERT, UPDATE) mais j'ai un soucis de format. Quelqu'un a -t-il un Envoyer le contenu d'un TEdit dans un TStringGrid [ par saravana ] slt a tous je suis nouveau en delphi et jai un ptit problèm je cherche le code pour que le contenu dun edit soit envoyé dans un tstringgrid texte d'un TEDIT centré verticalement ET horizontalement [ par sisi231 ] Comment faire en sorte que le texte d'un TEDIT soit centré verticalement ET horizontalement SVP ?SISI231 Ecrire dans un TStringGrid [ par saravana ] je souhaite fer un agenda mé comme je sui débutan je coné pa lé cod g troi edit é un boutton ki doi metr les troi valeurs sai Ecrire un fichier textes sous bloc-notes [ par Francky23012301 ] Bonjour à tous Imaginez que vous avez un bouton OK dans une FORM. Quand vous cliquez sur le bouton OK, le bloc-note de windows s'ouvre. Une phrase co TListView [ par cybersky ] Bonsoir a tousVoila mon problemeJ'ai dans une Form1 (1)                ecrire bouton [ par jmjmjm ] J'explique mon probleme je souhaite avoir plusieur bouton qui m'ouvre tous la meme fenetre dans la quelle je saisie un texte (jusque la facile)!Mais q


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Call of Duty 4: Modern Warfare pour Windows
Entre 55€ et 55€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo alphabet langue des sourds
Photo pretty teenage girlsPhoto machu picchu

Visiter la photothèque


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
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.