Discussion :

[didier_ber]

Bonjour à tous.
J'ai une TComboBox dont certains items sont plus longs que la largeur de la combobox.
J'ai réglé ça avec un

Code :

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

tireurs.Perform(CB_SETDROPPEDWIDTH, long_tireur_max, 0);

(les tireurs sont des escrimeurs).
Quand je sélection un tel item, la zone edit ne peut bien sûr pas l'afficher en entier, mais le début me suffirait; malheureusement ce texte est sélectionné et donc le curseur est à la fin.
Je n'arrive pas à faire fonctionner (pas d'effet)

Code :

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

tireurs.SelStart:=0;

A tout hasard, je l'ai précédé de

Code :

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

tireurs.SetFocus;

J'ai aussi essayé

Code :

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

tireurs.Perform(CB_SETEDITSEL,0,-1);

et

Code :

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

SendMessage(tireurs.Handle,CB_SETEDITSEL,0,-1);

Toujours sans aucun effet.
Je sèche complétement.
Merci pour vos conseils.
Didier.

[Michel Devaud]

Bonjour,

Pas de problème chez moi :

Le "tireurs.Perform(CB_SETDROPPEDWIDTH, long_tireur_max, 0)" fonctionne et lorsque je sélectionne un item plus large que le combo, le début de celui-ci s'affiche correctement dans l'edit.

Michel

[didier_ber]

Merci pour ta réponse.
Le choix séléctionné s'affiche bien aussi, mais comme il est sélectionné, le curseur se trouve à la fin, je ne lis donc pas le début du texte.
Je voudrais donc "désélectionner" le texte à l'aide de SelStart. C'est ce qui est sans effet. Il doit y avoir une option à choisir pour que le début s'affiche dans l'edit comme pour toi.
Didier.

[Michel Devaud]

Dans mon cas, mon combo a la propriété csDropDownList. Si je lui affecte la propriété csDropDown, le problème se produit effectivement.

Un SelStart me paraît difficile à utiliser car il n'existe pas d'événement se produisant après la sélection d'un item. Je vais essayer de trouver une solution.

A bientôt...

Michel

[didier_ber]

Je confirme ce que tu dis pour la propriété style; en csDropDownList, le problème ne se produit pas.
Je n'avais pas bien saisi la différence, mais le hasard fait bien les choses : je veux juste pouvoir taper les premières lettres, mais surtout pas rajouter d'item.
Donc c'est OK comme ça.
Merci beaucoup.
Mais j'aimerais bien comprendre pourquoi le SelStart ne fonctionne pas.
Didier.
edit : j'ai essayé plusieurs évènements : onSelect, onChange, onEnter.

[Michel Devaud]

Mais j'aimerais bien comprendre pourquoi le SelStart ne fonctionne pas

Le SelStart fonctionne mais il faudrait pouvoir le lancer après la sélection de l'item. Or le ComboBox ne fournit aucun événement suite à la sélection d'un item dans la liste déroulante (le OnChange n'est activé que si l'on modifie directement l'Edit).

Michel

[didier_ber]

J'utilise l'évènement onChange pour modifier un autre composant de ma fiche lors de la sélection d'un item dans la combobox, sans rien saisir dans l'edit.
Et ça marche.
Didier.

[Andnotor]

Ajoute ceci dans le OnCloseUp (Ou OnClick):

Code :

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

  PostMessage(TComboBox(Sender).Handle, CB_SETEDITSEL, 0, 0);

[didier_ber]

Ca marche !
Là, je ne comprends pas, mais c'est parce que je ne connais pas suffisamment l'API Windows; je ne connaissais que SendMessage, pas PostMessage.
Quelle est la différence ?
Merci.
Didier.

[Andnotor]

SendMessage est synchrone alors que PostMessage est asynchrone. En d'autres termes, un SendMessage est exécuté immédiatement (comme si on appelait une procédure) alors que PostMessage ajoute un traitement à effectuer à la suite de ceux en attente (la fermeture du combo aura donc déjà été exécutée).

Résolu ?

[Michel Devaud]

le OnChange n'est activé que si l'on modifie directement l'Edit

J'ai dit des bêtises. Je me suis un ti peu mélangé les pinceaux dans mes tests !!!

Ajoute ceci dans le OnCloseUp

Mon ComboBox n'a pas l'air de connaître le "OnCloseUp"...

[Andnotor]

Mon ComboBox n'a pas l'air de connaître le "OnCloseUp"...

Je ne me souviens plus à partir de quelle version ça a été implémenté. Mais c'est pour ça que j'ai également proposé un autre événement entre parenthèses .