Comment incrementer la position d'un Listview ?

Bonjour, je n'arrive pas à incrémenter la postion d'un lisview. Pour ce faire, j'utilise le code suivant : ListView1.ItemIndex:=ListView1.ItemIndex+1; Ca marche trés bien sur un listbox mais sur ce type de composant. J'ai aussi essayé : ListView1.SetFocus; ListView1.ItemIndex:=ListView1.ItemIndex+1; Mais c'est pas mieux ! Si quelqu'un à une idée ... Merci par avance.

Bonjour et merci de ta réponse. Mon listview est à VsReport et j'ai besoin d'incrementer comme suit (postion du listview actuelle +1), je dois donc aller vers le bas. Mon probléme c'est que je n'arrive pas à utiliser ton code, ça compile mais ca n'incremente pas la postion de mon listview. Merci de votre aide.

En gros, je veux faire un bouton qu'a chaque fois que je clique dessus la position de l'itemIndex du listview avance de 1.

Merci DelphiProg pour ta réponse. Mais j'ai mon Listview qui ne s'incremente pas de sa position initiale.

Salut,

tu ne vois pas la sélection changer parce que la ListView n'a plus le focus !!!
essaye comme ça :
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ListView1 do
    if Assigned(Selected) and (Selected.Index < Items.Count - 1) then
    begin
      Selected := Items[Selected.index + 1];
      SetFocus;
    end;
end;

 
@+
Cirec

---

J'ai deux lignes sur mon listview qui se selectionne à partir de ma position initiale mais mon mon listview ne s'incremente pas. J'en suis sur car j'ai fait un : ShowMessage(IntToStr(ListView1.ItemIndex));

ps: avec le premier code il faut sélectionner le premier Item en cliquant dessus
mets un showmessage avant et après et tu verras que sa valeur change !!!!

voici un autre code qui fonctionne dans tous les cas

procedure TForm1.Button11Click(Sender: TObject);
begin
  with ListView1 do
  begin
    if Assigned(Selected) and (Selected.Index < Items.Count - 1) then
    begin
      //ShowMessage(IntToStr(ListView1.ItemIndex));
      Selected := Items[Selected.index + 1];
      //ShowMessage(IntToStr(ListView1.ItemIndex));
    end
    else
    if Items.Count > 0 then
      Selected := Items[0];
    SetFocus;
    end;
end;

ce code a été testé et fonctionne parfaitement (comme le premier d'ailleurs )!!!

 
@+
Cirec

---

Merci de votre patience, je fais un peu demeuré mais ce code (dans mon cas) ne fonctionne pas. J'ai plusieurs collones, ça peut avoir un rapport ?