Discussion :

[rostomides]

Salut
J’ai un probleme, à l’aide ;
J’ai deux combobox dans mon programme, et je voudrais que l’une affiche des résultats différents suivant ce que je selectionne dans la première :

Voila ce que j’ai introduit comme code :

Combobox1.onchange(………………..)

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
If combobox1.itemindex=0 then
Begin
Combobox2.clear ;
Combobox2.items.add(‘1’);
Combobox2.items.add(‘2’);
Combobox2.items.add(‘3’);
Combobox2.items.add(‘4’);
Combobox2.items.add(‘5’);
End;
If combobox1.itemindex=1 then
Begin
Combobox2.clear ;
Combobox2.items.add(‘6’);
Combobox2.items.add(‘7’);
Combobox2.items.add(‘8’);
End;
 
If combobox1.itemindex=2 then
Combobox2.clear ;
Combobox2.items.add(‘9’);
Combobox2.items.add(‘10’);
Combobox2.items.add(‘11’);
Combobox2.items.add(‘12’);
Combobox2.items.add(‘13’);
End;

En tout j’ai fait 13 traitements comme ça, mais le problème que je rencontre et que lors de l’execution quand je choisi par exemple l’objet1 de combobox1 ba il m’affiche tout de 1………..13,
J’ai essayé une autre methode, j’ai assigné moi-même son titre a chaque item sans utiliser add, exemeple combobox2.items[0]=’1’…………. Mais tjrs le meme probleme.
Ba voila s’il ya qlq1 qui peut m’aider, je le remercie a l’avance .
Cordialement ;

[hocine]

Salut,
je crois que des else entre les différents IF suffiront pour résouidre ce problème.
et si je ne me trompe pas votre dernière condition pour combobox1 à commeséltat de 1..13 pour combobox2.
Bonne chance.
Merci.

[rostomides]

merci pour votre réponse,
j'ai deja essayé avec les else mais ça ne marche tjrs pas. quand vous me dites que la condition renvoie au 1...13 pourriez vous etre plus précis.
meci

[hocine]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
 
If combobox1.itemindex=la dernière condition then
Combobox2.clear ;
Combobox2.items.add(‘1’);
Combobox2.items.add(‘2’);
Combobox2.items.add(‘3’);
...
Combobox2.items.add(‘13’);
End;

Bonne chance.
Merci.

[Yurck]

bonjour,

Surprenant !
Probablement que ce problème est aujourd'hui résolu. Mais il me semble qu'il manque un "Begin" après la ligne "If combobox1.itemindex=2 then"

Voici ce que je propose :

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
 
var
  i : integer;
begin
  Combobox2.clear ;
  case combobox1.itemindex of
  0 : begin
         For i:=1 to 5 do
           Combobox2.items.add(inttostr(i));
      end;
  1 : begin
         For i:=6 to 7 do
           Combobox2.items.add(inttostr(i));
      end;
  2 : begin
         For i:=9 to 13 do
           Combobox2.items.add(inttostr(i));
      end
  else showmessage('Ce cas n''est pas implémenté !');
  end;
end;

cordialement