Discussion :

[Navi]

Bonjour,
Je voudrais savoir comment on peut incrémenter l'item d'un ComboBox de +1.
Merci d'avance.

[jmjmjm]

Salut et bienvenue sur developpez.com pour incrementer l'item d'une comboBox utilise ComboBox1.Itemsindex:=ComboBox1.Itemsindex+1

[Navi]

Merci pour la bienvenue et le code

[jmjmjm]

De rien bonne prog et pense au tag en bas a gauche

[Navi]

Parcontre comment on peut savoir le numéro du dernier item ?
Merci d'avance.

[jmjmjm]

Tout simplement avec

Code :

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

1
2
 
ComboBox1.items.count;

Bonne Prog !!

[Navi]

Enfaite je voudrais que quant je suis sur le dernier item du ComboBox2 sa m'incrémente l'item du ComboBox1 de +1 et que sa me remette le ComboBox2 à l'item 0, alors j'ai essayé mais sa ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
 
if ComboBox2.ItemIndex = ComboBox1.Items.Count
then
begin
ComboBox2.ItemIndex := 0;
ComboBox1.ItemIndex := +1;
end;
ComboBox2.ItemIndex := ComboBox2.ItemIndex+1;

Merci d'avance.

[jmjmjm]

Quelle est ton message d'erreur as tu bien placer ton code dans le OnChange du ComboBox2

De plus tu compar sur ta premiere ligne le ComboBox2 avec le ComboBox1 je pense que tu as fait une erreur c'est ComboBox2.Items.count

[Navi]

Je n'es pas de message d'erreur, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button7Click(Sender: TObject);
begin
if ComboBox2.ItemIndex = ComboBox2.Items.Count
then
begin
ComboBox2.ItemIndex := 0;
ComboBox1.ItemIndex := ComboBox1.ItemIndex+1;
end;
ComboBox2.ItemIndex := ComboBox2.ItemIndex+1;
end;

[jmjmjm]

Ton itemsindex commence a - 1 tu dois donc utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox2.ItemIndex = ComboBox2.Items.Count-1
then
begin
ComboBox2.ItemIndex := -1;
ComboBox1.ItemIndex := ComboBox1.ItemIndex+1;
end;
ComboBox2.ItemIndex := ComboBox2.ItemIndex+1;
end;

[jmjmjm]

Dis moi si c'est bon !!

[Navi]

Sa marche merci !
Parcontre j'ai un ComboBox3, je veut qu'il s'incrémente de +1 quant le ComboBox1 et à son dernier item et que sa remmete le ComboBox1 & ComboBox2 à zéro et doncc j'ai essayer mais sa ne 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
16
 
procedure TForm1.Button7Click(Sender: TObject);
begin
if ComboBox2.ItemIndex = ComboBox2.Items.Count-1
then
begin
ComboBox2.ItemIndex := -1;
ComboBox1.ItemIndex := ComboBox1.ItemIndex+1;
end;
if ComboBox1.ItemIndex = ComboBox1.Items.Count-1
then
begin
ComboBox1.ItemIndex := -1;
ComboBox3.ItemIndex := ComboBox3.ItemIndex+1;
end;
ComboBox

[jmjmjm]

Tu devrais trouver ta betise tout seul normalement tu as oublier de mettre une ligne

Allez c'est noel je te donne ton code :

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox2.ItemIndex = ComboBox2.Items.Count-1
  then begin
  ComboBox2.ItemIndex := -1;
  ComboBox1.ItemIndex := ComboBox1.ItemIndex+1;
  end;
ComboBox2.ItemIndex := ComboBox2.ItemIndex+1;
if ComboBox1.ItemIndex = ComboBox1.Items.Count-1
  then begin
  ComboBox1.ItemIndex := -1;
  ComboBox3.ItemIndex := ComboBox3.ItemIndex+1;
  end;
end;

[jmjmjm]

Tu avais oublier d'incrementer ta combobox2 :
ComboBox2.ItemIndex := ComboBox2.ItemIndex+1;
pense a :Resolu: sa devrait allez normalement a moin que tu es un soucis avec combobox4

[Navi]

Lol non pas de ComboBox4 mdrr
Non sinon ya tout qui marche sauf que dans la ComboBox1 om y as 3 items et le troisieme s'affiche tjr en blanc.

[jmjmjm]

Comment sa en blanc ne s'affiche pas tu veux dire car la couleur de fond de la combobox est blanche

[Navi]

Bas j'ai trois prénoms :
- benjamin
- nat
- pat

Pour benjamin et nat sa marche mais pas pour pat.

[jmjmjm]

c'est normal car tu lui demande que quand ComboBox est sur le dernier item de l'effacé essaye ca :

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox2.ItemIndex = ComboBox2.Items.Count-1
  then begin
  ComboBox2.ItemIndex := -1;
  ComboBox1.ItemIndex := ComboBox1.ItemIndex+1;
  end;
ComboBox2.ItemIndex := ComboBox2.ItemIndex+1;
if (ComboBox1.ItemIndex = ComboBox1.Items.Count-1) and (ComboBox2.ItemIndex=ComboBox2.Items.Count-1)
  then begin
  ComboBox1.ItemIndex := -1;
  ComboBox3.ItemIndex := ComboBox3.ItemIndex+1;
  end;
end;

[Navi]

Merci sa marche parfaitement, parcontre dernière question jurer lol, tu sais comment on incrémente un label ?

[jmjmjm]

que veux tu faire exactement je ne vois pas trop?