Discussion :

[SOPSOU]

Salut, comment faire pour changer au fur et à mesure du saisi dans un TEdit le premier caractère du mot en majuscule tout en gardant la position du curseur à la position courante.

[willos_fr]

Salut, comment faire pour changer au fur et à mesure du saisi dans un TEdit le premier caractère du mot en majuscule tout en gardant la position du curseur à la position courante.

hello

si à chaque fois que tu tapes une lettre ça doit vérifier /mettre la première lettre en majuscule utilise la méthode onchange

++

[ShaiLeTroll]

tu peux aussi utiliser la propriété CharCase avec la valeur ecUpperCase si tout le texte doit être en majuscule

sinon, mieux vaut utiliser OnKeyPress, on peut subsister un caractère par un autre (paramètre Entrèe\Sortie Key), donc si l'on saisi un a et que l'edit ne contient rien, on forcera A, attention, il faudrait aussi gérer la position du caret (le curseurà pour savoir si c'est la première que l'on écrit (on peut très bien écrire un truc, revenir en arrirère ...)

[SOPSOU]

après juste la saisie d'un mot, son premier caractère est immédiatemant mis en majuscule en gardant la position du curseur à sa place.
La fin d'un mot est marquée par la touche entrée ou la touche d'espacement.
Exemple: Je Suis Content.
Comment donc proceder dans le OnChange de mon TEdit (tutos ou exemple)?

[petitcoucou31]

salut

un exemple pour le keypressed

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if (edit1.selstart=0) or (edit1.Text[edit1.selstart]=' ')  then Key:=upcase(Key);
end;

[SOPSOU]

salut PetitCoucou
Très bon code.
Merci

[Aka Guymelef]

Si ton problème est résolu, penses à cliquer sur l'icône