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 :
Malheureusement cela ne fonctionne pas!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
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
Partager