Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#3

Re: Scrollen mit eigener Scrollbar bei TListView

  Alt 3. Jun 2005, 07:23
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
  Mit Zitat antworten Zitat