tgesturemanager Плавный Swipe вниз

[sezavasasilov]

Добрый день!

На форме есть TVertScrollBox с активной прокруткой. Пытаюсь придумать как можно сделать подобие обновления страницы плавным свайпом вниз. TGestureManager срабатывает только после фактического завершения жеста. Хотелось бы при скролле вверх, достижения верхнего положения и последующего свайпа вниз плавно увеличивать Margin.Top следуя за пальцем.

Всё осложняется тем, что объекты внутри TVertScrollBox так же должны реагировать на действия пользователя, поэтому отключать их нельзя. 

Сначала хотел отслеживать события TGestureManager с проверкой TVertScrollBox .ViewportPosition.IsZero, но интерактивности так и не добился.

Буду рад любым идеям.

[kami]

Или возьмите TListView, у него есть PullToRefresh... или смотрите, как оно в нем сделано (в TListViewBase)