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..
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
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;
voila..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 cb1.SelText := cb1.Items[0];-- en l'occurrence ici c 'TXT'
je crois que c'est simple mais j'ai pas su surtout où le faire!!
Merci
Partager