Ich weis zwar nicht, ab du sowas meinst, aber kannst ja mal versuchen.
Delphi-Quellcode:
var
Rect: TRect;
begin
if listbox1.Count> 0 then
begin
Rect:= listbox1.ItemRect(0) ;
caption:= inttostr(Rect.Top div listbox1.ItemHeight* -1);//Beispiel
Trackbar1.Position:= (Rect.Top div listbox1.ItemHeight* -1)
end;
end;
Der Code funktioniert nur beim runterscrollen.