Delphi Firemonkey 如何实现水平滚动框内的外层布局垂直滚动

我希望实现如下交互效果：即便触屏操作的手指落在仅支持横向滚动条目的水平滚动框（horizontal scrollbox）范围内，主外层布局仍可响应垂直滚动操作。我此前已尝试将原有水平滚动框替换为标准TScrollBox，但未达到预期效果。

这类嵌套滚动交互可在Instagram（其故事栏模块）、Facebook等应用中见到。原参考场景的交互概念为：手指在横向滚动模块上滑动时，垂直方向的滑动操作不被横向容器拦截，可正常驱动外层页面的垂直滚动，但对应其他开发环境的解决方案不适用于Delphi平台。

补充说明：Android平台有一款名为“Nested Recycler View（嵌套回收视图）”的组件可完美实现上述嵌套滚动效果，请问Delphi Firemonkey平台是否存在功能类似的组件或实现方案？

实现方案 #

Firemonkey 无开箱即用的、对标Android Nested Recycler View 的原生组件，可通过重写触摸事件分发逻辑实现完全一致的嵌套滚动效果，核心逻辑与Android嵌套滚动机制对齐，具体如下：

• 基础布局搭建
  外层垂直滚动容器使用TVertScrollBox，嵌入的横向滚动模块使用独立的THorzScrollBox。通用TScrollBox的默认手势规则会拦截自身区域内的所有垂直滑动，这也是之前尝试替换原有滚动框后效果不达标的核心原因。
• 手势分发逻辑重写
  为横向滚动的THorzScrollBox扩展触摸事件处理能力：
  1. 触摸事件触发时，先记录初始触点坐标，不立刻消费整个触摸流
  2. 当滑动偏移量达到系统手势触发阈值时，判定主导滑动方向：若横向偏移量占比更高，将后续触摸流交由横向滚动框处理横向滑动；若垂直偏移量占比更高，直接将后续垂直方向的触摸事件穿透传递给外层垂直滚动容器，不做拦截
  3. 增加滑动方向动态切换逻辑：滑动过程中实时计算两个方向的偏移占比，当用户转向垂直滑动时，立刻把事件控制权移交给外层容器，避免出现滚动卡死
• 关键属性配置
  • 横向滚动框开启TouchTracking，保证可实时捕获滑动过程中的坐标变化
  • 关闭横向滚动框的AutoCapture，避免组件全量捕获触摸流后无法向外层分发事件
  • 外层垂直滚动容器不要主动把内部横向滚动框区域纳入自身的触摸拦截范围
• 快速落地路径
  目前社区有成熟的嵌套滚动通用实现单元，核心就是上述的事件方向判定与分发逻辑，可直接复用接入；主流FMX第三方组件库也内置了支持嵌套滚动的滚动容器，完成层级配置后无需额外编写代码即可实现同类效果。

内容的提问来源于stack exchange，提问作者havrlisan