Dafür musst du meine zweite Lösung heranziehen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
const Area = 25;
begin
if Now.Y < Area then
ListView1.Perform(WM_VSCROLL, SB_LINEUP, 0);
if (ListView1.Height - Now.Y) < Area then
ListView1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
end;
Wenn du in den Bereich der unteren oder oberen 25 Pixel kommst, dann wird gescrollt.