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 : 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;
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