Listview mit Selektion mitscrollen lassen

[Luckie]

In einer Schleife werden Itmes in einem Listview "abgearbeitet". So:

Delphi-Quellcode:

LV.Items[Loop].Selected := True;

Lasse ich bisher die Selektion mitlaufen. Nur was ich bisher nicht hinbekommen habe den Listview mitzu scrollen, damit die Selektion immer sichtbar ist. Stichwort für die Hilfe würde erstmal genügen oder so.

[teebee]

Das geht mit

Code:

LVM_ENSUREVISIBLE

Ist in der commctrl.pas.

Hier noch ein Code-Beispiel

Delphi-Quellcode:

Var i,j,k: Integer;
begin
 ListView1.SetFocus;
 For i := 0 To ListView1.Items.Count-1 Do Begin
  ListView1.Items[i].Selected := True;
  SendMessage(ListView1.handle,LVM_ENSUREVISIBLE,i,0);
  ListView1.Refresh;
  k := 0;
  For j := 1 to 10000000 Do Inc(k); // nur zum Verlangsamen
 End;
end;

Gruß, teebee

[edit]Code-Beispiel eingefügt[/edit]

[Luckie]

Danke, das war's. :thumb:

[chris]

hi,

wobei es mit tlistitem.makevisible auch geht

[Luckie]

Egal. Ich stehe doch so auf WinAPI. ;)