Changer la valeur text d'un ComboBox

**davels** · 10/10/2006, 13h08

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

**Cl@udius** · 10/10/2006, 13h24

Salut,

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

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

@+

**davels** · 10/10/2006, 13h31

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

**Cl@udius** · 10/10/2006, 13h47

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 :

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

**davels** · 10/10/2006, 13h54

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

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

Par contre c'est loin d'être aussi évident

**Cl@udius** · 10/10/2006, 14h00

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

@+

**davels** · 10/10/2006, 14h33

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

**Cl@udius** · 10/10/2006, 16h07

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 :

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
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.

@+

**davels** · 10/10/2006, 17h18

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

**davels** · 11/10/2006, 11h15

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 ...

**davels** · 12/10/2006, 12h09

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

**hy00ga** · 12/10/2006, 12h44

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 :

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

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