Delphi TFramedVertScrollBox使用鼠标动态滚动（非触摸）

在Delphi 10.2.3中，TFramedVertScrollBox组件自动支持使用触摸的垂直动态滚动（在Android中测试）

但是，默认情况下，使用鼠标滚动的唯一方法是滚动条（我将其隐藏）

有没有办法将鼠标事件挂钩到触摸屏的动态滚动代码中？
如果没有，我是否唯一选择手动编写自己的动态滚动算法？

确认您对

Android

和其他移动目标上的自动手势响应的观察：

在iOS、Mac OS和Android下，滚动视图会响应速度 以及手势的方向，以一种让人感觉 对人来说很自然。FireMonkey提供惯性运动装置 模拟Windows下滚动视图的平滑惯性移动

在Windows上，通过设置

FramedVertScrollBox1.anCalculations

的属性来实现相同的效果非常简单。由于未发布

AniCalculations

，因此无法在

对象检查器中设置它，而只能在f.ex中设置。在表单的
OnCreate
事件中：

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Enable scrolling by mouse or gesture
  FramedVertScrollBox1.AniCalculations.TouchTracking := [ttVertical];
  // Enable inertial movement
  FramedVertScrollBox1.AniCalculations.Animation := True;
  // Set deceleration rate
  FramedVertScrollBox1.AniCalculations.DecelerationRate :=  DecelerationRateNormal;
end;

ShowScrollbars
属性可以设置为
False
，
FramedVertScrollBox1
的内容在用鼠标垂直拖动时“惯性”移动