Modifier un ComboBox

J'ai un ComboBox avec quelques mots dans les Items. Ce que je souhaite faire c'est que si l'on choisi un mot de la liste je veux mettre un autre mot qui n'est pas dans la liste en modifiant la propriété Text.

Code:

---

1 2 3 4 5

procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.ItemIndex=2 then ComboBox1.Text:='autre chose'; end;

---

Je précise que la propriété Style est bien sur csDropDown.
Le résultat c'est que le combo affiche ce que j'ai séléctionné sans tenir compte de mon affectation.
Je devrais même pouvoir enlever la ligne avec le if et après ça je ne peux plus simplifier pour trouver le problème.

J'ai besoin de vos lumières. Merci :D

Salut,

Je n'ai pas delphi sous la main, mais tu peux essayer

Code:

---

1 2 3 4 5

procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.ItemIndex=2 then ComboBox1.Items[2]:='autre chose'; end;

---

@+

Lorsque Style est sur csDropDown, la propriété ItemIndex ne sert pas, et n'est pas renseignée correctement. Tu dois donc faire ceci :

Code:

---

1 2	if ComboBox1.Text = ComboBox1.Items[2] then ComboBox1.Text := 'autre chose';

---

La solution de mduse change en effect le items[2] mais le text du ComboBox est éffacé lors du OnChange.

Je vais changer ma façon de tester le ComboBox en passant par la propriété Text au lieu de ItemIndex mais cela ne fonctionne toujours pas car mon affectation...

Code:

---

ComboBox1.Text := 'autre chose';

---

...est ignorée.

Ce qui est étrange c'est que si j'ajoute un bouton a ma fiche avec le code suivant:

Code:

---

1 2 3 4

procedure TForm1.Button3Click(Sender: TObject); begin Show; end;

---

mon 'autre chose' s'affiche comme si j'avais fait un "refresh" de ma Fiche. J'ai bien essayé d'ajouter le Show à la fin du OnChange mais il l'ignore aussi :(