Recherche:

Y a pas de probleme ravis de t'avoir avancé

Je t'ais donné la reponse si c'etait t'as derniere question pense a :resolu: et sinon n'esite pas a reposter sur le forum et bon developpement a toi

Tu veux incrementer la valeur du label ??
si c'est le cas :


Label1.Caption:=inttostr(strtoint(Label1.caption)+1);

que veux tu faire exactement je ne vois pas trop?

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


procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox2.ItemIndex =...

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

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

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


procedure TForm1.Button1Click(Sender: TObject);
begin
if...

Dis moi si c'est bon !!

Ton itemsindex commence a - 1 tu dois donc utiliser


procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox2.ItemIndex = ComboBox2.Items.Count-1
then
begin
ComboBox2.ItemIndex :=...

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...

Tout simplement avec

ComboBox1.items.count;
Bonne Prog !!

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

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