Changer la valeur text d'un ComboBox

Lorsque j'ouvre le drop down d'un ComboBox, chaque ligne est composée de 2 paramètres séparé par un double pipe (||).
J'aimerais que lorsque j'ai séléctionné le bon item, la valeur text retournée ne comporte que le premier paramètre.

Pour cela, j'ai la fonction suivante sur l'Event OnSelect :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TFrmMeubles.DataChangeSelect(Sender: TObject); var position : integer; temp : String; begin if Sender is TComboBox then begin with sender as TComboBox do begin position := AnsiPos('||',TComboBox(Sender).Items.ValueFromIndex[ItemIndex]); temp := Copy(TComboBox(Sender).Items.ValueFromIndex[ItemIndex],0,position-1); TComboBox(Sender).Text := temp; end; end; end;

---

Malheureusement cela ne fonctionne pas!
Le code en lui même fonctionne, mais pas sur l'Event OnSelect, j'en ai essayé d'autres mais toujours sans résultat.
Quelqu'un a t il une idée?

Merci, David

Salut,

Sur l'évènement OnSelect du ComboBox, j'ai codé ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.ComboBox1Select(Sender: TObject); var ItemText: string; begin with TComboBox(Sender) do begin // Texte de l'item ItemText := Items[ItemIndex]; ShowMessage(ItemText); // Partie gauche ShowMessage(Copy(ItemText, 1, Pos('||',ItemText)-1)); // Partie droite ShowMessage(Copy(ItemText, Pos('||',ItemText)+2, Length(ItemText))); end; end;

---

@+

Merci pour ta réponse, mais mon problème se situe à la mise à jour du champ Text de mon ComboBox.
Si je fais un showmessage de ma la valeur Temp, j'ai la bonne valeur qui m'est retournée!
On dirait que la valeur Text est mise à jour après mon opération mais je ne trouve pas ou :o

Oui, effectivement je n'avais pas fait attention au fait que tu voulais changer le Text du ComboBox !

Un petit test avec ce code montre que le text est bien changé à l'appel de la procédure mais immédiatement mis à jour à la sortie.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.ComboBox1Select(Sender: TObject); var position : integer; temp : String; begin if Sender is TComboBox then begin with sender as TComboBox do begin position := AnsiPos('||', Items[ItemIndex]); temp := Copy(Items[ItemIndex],0,position-1); Text := temp; ShowMessage(Text + ' ' + IntTosTr(ItemIndex)); end; end; end;

---

Il va falloir trouver autre chose :mouarf:

Citation:

---

Envoyé par Claudius40

Un petit test avec ce code montre que le text est bien changé à l'appel de la procédure mais immédiatement mis à jour à la sortie.

Il va falloir trouver autre chose :mouarf:

---

C'est précisement ce que j'essaye de faire :aie: :mrgreen:

Par contre c'est loin d'être aussi évident :? 8O

Re,

Peut-être l'écriture d'un composant hérité de TComboBox, qui gère les multicolonnes, largeur du combo, largeur de la liste, N° de la colonne qui alimente le Text du combo, etc...

Bien sûr ça ne se fait pas en 5 minutes ;)

@+

Citation:

---

Envoyé par Claudius40

Re,

Peut-être l'écriture d'un composant hérité de TComboBox, qui gère les multicolonnes, largeur du combo, largeur de la liste, N° de la colonne qui alimente le Text du combo, etc...

Bien sûr ça ne se fait pas en 5 minutes ;)

@+

---

Oui j'y ai pensé!
Mais l'idée que j'ai eu partait plus sur un composant maison du genre EditBox avec un ListView, qui correspondrait mieux aux besoins :)
Mais cela représente à mon avis quelques heures de travail :roll:

Bon je viens de faire ça.

J'ai posé sur ma form un TEdit et TListView en vsReport avec deux colonnes (un code, un libellé).

Un changement de sélection dans le ListView alimente la propriété Text avec le code dans le TEdit. Et à l'inverse lorsque que tu tapes un texte dans le TEdit celui-ci va chercher la première occurence dans le TListView.

Tu pourras sûrement optimiser le comportement, mais c'est une idée de base.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

implementation   {$R *.dfm}   procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin Edit1.Text := Item.Caption; end;   procedure TForm1.Edit1Change(Sender: TObject); var FoundItem: TListItem; begin with ListView1 do begin FoundItem := FindCaption(0, Edit1.Text, True, True, False); if FoundItem <> nil then begin OnSelectItem := nil; ItemIndex := FoundItem.Index; FoundItem.MakeVisible(False); OnSelectItem := ListView1SelectItem; end; end; end;   end.

---

@+

Merci ;)

Mais comme le signale delphi-ni dans son Post, il y a d'autres paramètres à prendre en compte!
Je vais donc encore essayer de persévérer de ce coté la et voir ou se passe la dernière mise à jour du champ text du ComboBox :)

J'ai testé a peu près tous les EVENT possibles mais le dernier est bien le OnSelect et du coup ... je sèche complètement!

Par contre, modifier le champ text depuis un autre composant fonctionne ... :(

Je viens de faire des tests plus approfondis et il semblerait qu'après chaque EVENT, le champ text du ComboBox soit mis à jour!

Comment puis je faire pour rajouter un EVENT?
Genre UpdateText

un evenement est une procedure qui répond à un message. Pour spécifier a quel message une procédure doit répondre on utilise le mot reservé "message".

Code:

---

1 2 3 4 5

procedure MonEvent(var msg : TMessage); message WM_USER +1; begin //le code a executer end;

---

Dans cet exemple, quand ton objet va recevoir le message WM_USER + 1, il va executer la procédure. Maintenant il va falloir modifier le code pour insérer un endroit ou on envoie le message a ton objet .. et ca, ca va etre moins glop :) Sinon il y a deja certains message prédefinis.. mais je doute que celui que tu veux faire existe par défaut

Est ce que CM_TEXTCHANGED pourrait correspondre aux changement de text du combobox?

Je peux pas te répondre sans essayer :) je l'ai fait que avec des messages prédéfinis de windows mais ceux que j'ai utilisés commencaient toujours par WM_ ... essaye.. tu verra bien :)