TListView: zum markierten Item scrollen

[Dale]

Hallo Mazel,

falls du etwas Zeit und Lust hast, würde ich dir eine andere Komponente empfehlen, die wesentlich mehr Möglichkeiten bietet als das TListView:

"VirtualTreeView"

Falls du dazu keine Lust hast, sollte folgende, nicht besonders schöne Lösung vielleicht helfen. Hierbei sei "lItem" dein ausgewählter Eintrag und "lv" das ListView:

Delphi-Quellcode:

  IF ((lItem.Index + lv.VisibleRowCount) > lv.Items.Count) THEN
  lItem := lv.Items[lv.Items.Count - lv.VisibleRowCount];
WHILE (lItem.Index > lv.TopItem.Index) DO
  lv.Scroll(0, 10);
lv.SetFocus;

Schönen Tag von Dale