Listview mit Selektion mitscrollen lassen

[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]