Discussion :

[psidonio]

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 :

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

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

[mduse]

Salut,

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

Code :

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

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

@+

[sjrd]

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 :

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

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

[psidonio]

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 :

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

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 :

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

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