bonjour,

j'ai une combobox (cb1) qui affiche 2 valeurs par ex.
je veux qu'en sélectionnant la première valeur de cb1, remplir une autre combobox (cb2) avec une liste lst1, et pour la deuxième valeur une autre liste lst2

voila ce que j'ai fait, mé je sé pas ou placer le code en fait!! ya pas d'évenement onselectedindex ou un truc dans le genre.. g placé donc ça sous l'évènement OnChange mé ça marche 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
 
//au tt début
lst1 := TStringList.Create;
lst2 := := TStringList.Create;
lst1.add('valeur11');
lst1.add('valeur21');
lst2.add('valeur12');
lst2.add('valeur22');
 
//dans implementation...
procedure TForm1.cb1Change(Sender: TObject);
begin
if cb1.SelText = 'TXT' then cb2.Items := lst1
else if cb1.SelText = 'XML' then cb2.Items := lst2;
end;
et j'ai fixé les valeurs par défaut de cb1 sur l'évenement Form.Create comme ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
cb1.SelText := cb1.Items[0];-- en l'occurrence ici c 'TXT'
voila..
je crois que c'est simple mais j'ai pas su surtout où le faire!!

Merci