Scrollen mit eigener Scrollbar bei TListView

[xaromz]

Guten Morgen!

Wie wäre es mit

Delphi-Quellcode:

var
  OldPos: Integer;
  
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  ListView1.Scroll(0, ScrollBar1.Position - OldPos);
  OldPos := ScrollBar1.Position;
end;

Du must nur den maximalen Wert der Scrollbar errechnen. Das ist allerdings bei einem ListView nicht ganz einfach, da es ja mehrere Ansichten gibt. Prinzipiell musst Du aber nur die Itemhöhe mit der Item-Anzahl multiplizieren und in Relation zur Größe Deines ListViews setzen.

Gruß
xaromz