TScrollBox: Manuelles Scrollen
-
Hallo,
ich habe eine Form mit einer TScrollBox-Komponente. Da ich ein anderes Design verwende, habe ich auch meine eigene ScrollBar daneben und die der ScrollBox auf Visible=false gesetzt. Nun gut, man kann manuell Scrollen, indem man ScrollBy verwendet mit einem Delta-Wert... einer, da ich nur vertikal scrollen lasse. Nun besteht meine "Scrollbar" aus einem Panel und 2 Labels, die Labels dienen als Buttons, zum Scrollen. Außerdem habe ich einen Timer, der alle 10 ms um Delta vertikal scrollt. im OnMouseDown/OnMouseUp-Ereignis der Labels setze ich den Delta entsprechend und schalte den Timer ein/aus. Das klappt soweit wunderbar, nur wollte ich wissen, wieich jetzt noch abfangen kann, wenn die ScrollBox zuende gescrollt hat... - was für'n Satz
-
Mit der Property ScrollBox1->VertScrollBar->Position kann die Position
gelesen werden. Anfangsposition entspr 0, Endposition enstspricht
ScrollBox1->VertScrollBar->Range - ScrollBox1->Height.