Incrémenter l'item d'un ComboBox

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

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

Merci pour la bienvenue et le code :)

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

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

Tout simplement avec

Code:

---

1 2	ComboBox1.items.count;

---

Bonne Prog !!

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:

---

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.

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

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

Code:

---

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;

---

Ton itemsindex commence a - 1 tu dois donc utiliser

Code:

---

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;

---

Dis moi si c'est bon !!

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:

---

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

---

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

Allez c'est noel je te donne ton code :
:D

Code:

---

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;

---

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

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.

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

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

Pour benjamin et nat sa marche mais pas pour pat.

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

Code:

---

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;

---

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

que veux tu faire exactement je ne vois pas trop?