Majuscule seulement pour initiale dans ComboBoxRésolu

Question

Bonjour,
J'ai un ComboBox, et quand j'&#233;cris dedans &#231;a me met au fur et &#224; mesure sur l'item correspondant, et donc quand j'ai le bon item inscrit, je fais tab pour passer &#224; un autre ComboBox. Mais le probl&#232;me est que quand j'&#233;cris, la majuscule qui &#233;tait en majuscule dans mon item devient minuscule car j'ai &#233;cris dans mon ComboBox en minuscule. Est-ce qu'il y a une astuce pour mettre la 1ere lettre de saisie de mon ComboBox en majuscule ou alors il faut que je fasse le test dans le OnKeyDown?
Merci d'avance

florenth · Accepted Answer

Eh mais il y a du vrai dans ce que tu dis !!! ;-)

Ca fait "un partout".



Non, en effet, je n'avais pas test&#233; ce bout l&#224;: &#231;a me semblait tellement &#233;vident que cela allait marcher ... 

 

En r&#233;sum&#233;, deux solutions sont envisageables &#224; ce probl&#232;me :



- La premi&#232;re, la tienne jlen100, (du post d'avant) qui effectue une
mise en majuscule apr&#232;s que l'utilisateur ait TOUT saisi dans le
combobox.

Inconv&#233;nient: une variable temporaire et le d&#233;lai entre le moment o&#249;
l'utilisateur entre sa premi&#232;re lettre et le moment o&#249; elle sera mise
en majsucule.



- La deux&#232;me, la mienne (celle de mon tout premier post) qui effectue
une mise en majuscules DES QUE l'utilisateur entre sa PREMIERE lettre.

Inconv&#233;nient: ?? (mais comme c'est mon code, je suis mal place pour en dire du mal, faites-le moi savoir si qqch cloche)



LaNat88, tu fais ton choix et tu valide (de pr&#233;f&#233;rence) nos deux r&#233;ponses puisqu'elles fonctionnent toutes deux.



@ +++

Florent


Si tu ne te plantes pas ......
tu ne poussera jamais

florenth · Answer

Tu peux mettre con TCombobox en Style =  csDropDownList ou bien mettre ce code dans l'&#233;venement OnKeyPress de ton ComboBox:



  procedure  TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

  if ComboBox1.Text  = '' then

    Key:= UpCase(Key);

 end; 

<hr size ="2" width="100%">Voila



@ ++

Florent


Si tu ne te plantes pas ......
tu ne poussera jamais

jlen100 · Answer

salut,

je pense que le plus simple est de forcer la majuscule au moment ou tu quites ton combobox en utiisant dans onexit

if ComboBox1.Items<>'' then ComboBox1.Items[1] := UpperCase(ComboBox1.Items[1])

Utilisateur anonyme · Answer

Merci tout d'abord &#224; tous les 2 de vous soucier de mon probl&#232;me mais j'ai l'impression que le code de florent va mettre en majuscules tout mon item alors que je ne veux que la 1ere lettre. Dans ce cas je verrai plus un truc du style comme jlen100, mais moi je bosserais plutot sur le Text et non sur l'item, dans ce cas comment r&#233;cup&#233;rer la 1ere lettre du Text? par un copy? du genre :
tmp := combobox.text;
tmp2 := copy(tmp,1,1);
tmp3 := copy(tmp,2,le reste);
combobox.text:=upper(tmp2)+tmp3
Non? Dites moi si je me goure, je d&#233;bute en delphi!!
Merci!

Utilisateur anonyme · Answer

Bon alors je viens de tenter le truc, ca a l'air de fonctionner :
procedure TFenetreSaisieInterlocuteur.ListeExit(Sender: TObject);
var
  tmp,tmp2,tmp3 : string;
begin
  tmp := Liste.Text;
  tmp2 := copy(tmp,1,1);
  tmp3 := copy(tmp,2,Length(Liste.Text)-1);
  Liste.Text := UpperCase(tmp2)+tmp3;
end;
Bon c'est un peu 'magouille' mais bon ca fonctionne...
Merci encore &#224; vous 2!
Nathalie

florenth · Answer

Euh, LaNat88, as-tu vraiment test&#233; mon code ??

Car figure toi qu'il fonctionne parfaitement (il ne met que la 1&#232;re
lettre) : le code teste si la saisie est vide, donc si l'utilisateur
est en train de taper le 1er carac, et si c'est le cas, il le met en
majuscule.



L'avantage de ma technique par rapport &#224; la tienne est que la mise en
majuscule de la 1ere lettre se fait d&#232;s qu'elle est tap&#233;e et non pas &#224;
la fin.



JLen100 > As tu test&#233; ton code ?? A priori non. 

 - Delphi signale une erreur au niveau du IF. Normal, tu compare
un objet &#224; une cha&#238;ne et tu lui attribue une valeur chaine: j'imagine
que tu voulais mettre Text &#224; la place de Items-

 - UpperCase(ComboBox1.Items[1] comme tu l'as &#233;crit, revoie tout
le premier item en majuscule. Ce n'est pas du toun ce que LaNat88
recherchait.



R&#233;sultat: LaNat88, regarde les codes que l'on te propose. A quoi cela
sert de poser une question si on n'&#233;coute pas la r&#233;ponse ? Ma premiere
r&#233;ponse correspond parfaitement &#224; tes attentes.



@ ++

Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

florenth · Answer

LaNat88, ton code magouill&#233; fonctionnne c'est l'essentiel mais tu peux aussi mettre:



Liste.Text[1]:=UpCase(Liste.Text[1]);



Comment faire compliqu&#233; quand on peut faire simple ??

Mais je te le rapelle une derni&#232;re fois, mon premier message (celui
juste en dessous de ta question) est pr&#233;f&#233;rable &#224; ton code, et &#224; celui
que je te pr&#233;sente &#224; la ligne du dessus.



@ ++

Florent


Si tu ne te plantes pas ......
tu ne poussera jamais

jlen100 · Answer

salut, florent

c'est vrai je n'avais pas tester mon code.

mais je pense que que tu n'as non plus tester le tien

en effet:

 Liste.Text[1]:= UpCase(Liste.Text[1]);

n'est pas compilable (erreur de compliation la partie gauche n'est pas
affectable) ensuite si tu sort avec un text vide tu auras une erreur
d'execution.

il faut passer par une variable intermediaire et tester si elle est
valide avant d'utiliser la fonction UpCase() (chaine non vide)

  procedure  TForm1.listeExit(Sender: TObject);

var buffer:string;

begin

 buffer: =Liste.Text;

 if buffer<>'' then buffer[1]:=UpCase(buffer[1]);

 liste.Text:=buffer;

end;

jlen100 · Answer

Un partout c'est beaucoup dire. C'est toujours sur les trucs les plus &#233;vidents qu'on se plante.

 l'inconv&#233;nient de ta m&#233;thode bien que mineure c'est de
mobililiser un peu plus de ressources processeurs (un appel de
procedure et un test &#224; chaque cartact&#233;re) . c'est un vieux reste de
TurboPascal tournant  sur un 8086 &#224; 8Mhz : il valait mieux faire
attention &#224; son code.



Ma m&#233;thode (mais c'est moi qui  le  dit  je ne suis donc
pas impartial) c'est ce qu'on appelle la diff&#233;renciation retard&#233;e :
effectuer le traitement qu'en c'est  n&#233;cessaire



La variable temporaire est une variable locale qui est lib&#233;er&#233;e des la
sortie de la procedure son influence est faible sur l'occupatiuon
m&#233;moire (sauf &#224; rentrer un roman fleuve dans Text) cela ne d&#233;passe pas
1 pointeur  en pile + la chaine .



quand au choix  entre les 2 methodes tout d&#233;pend de ce qu'on fait ap&#232;s:

@+

jlen100



L'exp&#233;rience est la somme des erreurs corrig&#233;es

Utilisateur anonyme · Answer

Bonjour &#224; vous deux,
Bon je tiens &#224; m'excuser d'avoir dout&#233; de vos solutions, et Florent je suis d&#233;sol&#233;e si je t'ai froiss&#233;e (bonne f&#234;te au passage...).
Je vous remercie de m'avoir propos&#233; deux solutions &#224; mon probl&#232;me, et je vous promets &#224; l'avenir de tester les solutions avant de les commenter.
A bient&#244;t,
Nathalie

Majuscule seulement pour initiale dans ComboBox

10 réponses

Votre réponse

Discussions similaires