Mit Mausrad in TScrollBox scrollen

[CCRDude]

Da ich mich auch gerade erst damit beschäftigt habe erstmal auch ein danke von mir für die Version von Uwe

Was dabei aber erwähnt werden sollte: dieser Code scrollt das Control unter der Maus. Ist auch in der Originalanfrage so, verdient aber imho der speziellen Erwähnung, weil es zu so Effekten führt dass etwa auf einmal nichts mehr scrollt, wenn die Maus über einem TButton innerhalb der Scrollbox ist.

Eine "natürlichere" Scrollvariante könnte es sein, das aktive Control zu nehmen, und, falls die nicht scrollbar ist, in der Hierarchie solange nach oben zu gehen, bis sich eines findet. Da frage ich mich gerade, ob so etwas wie "scrollbar" abfragbar ist (ist es bestimmt).