Event OnChange dla TControlScrollBar

Witam,

Mam problem i potrzebuję tego co w temacie. TControlScrollBar (suwak na formularzu) w przeciwieństwie do standardowego TScrollBar nie posiada żadnych zdarzeń. Od razu wyjaśniam że przechwytywanie messages WM_VSCROLL alboWM_HSCROLL nie działa w moim przypadku. Te message są wysyłane tylko w przypadku manualnego przesuwania suwaka a w moim przypadku przewijanie odbywa się programowo. W programie wyzwalam pewną akcję, po której zaczyna się dziać dużo, dużo rzeczy i formularz skroluje się zupełnie nieoczekiwanie. Nie idzie dojść dlaczego i w którym momencie. Gdybym miał taki OnChange może udałoby się coś zdebugować. Może ktoś ma jakiś pomysł.

Winowajcą okazała się metoda AutoScrollInView. Po wywołaniu tejże pionowy suwak resetował się do pozycji = 0. Niestety nie mam źródeł VCL i nie wiem co tam w środku się działo. Wyłączenie tej metody (przesłonięcie pustą) rozwiązało problem.