delphi - 以编程方式滚动 ThorzScrollBox Firemonkey XE6

Question

我有THorzScrollBox一个表格，还有一些TStyledControls在里面。每个StyledControl都有一个Tag识别。使用 an来TEdit通知一个值，我可以通过他的.ScrollBoxControltag

如果control我搜索的不在屏幕上，我想滚动ScrollBox显示它。

如何以编程方式执行此操作？

Answer 1

我找到了一种方法来做到这一点。我必须使用ScrollBy. 但细节是，如果我想向右滚动控件，我必须使用负值。例子：

sbItems.ScrollBy(-10, 0); // this will scroll to right

如果我使用正值，它将向左滚动。

sbItems.ScrollBy(10, 0); // this will scroll to left

关键是，如果你滚动一次，ViewportPosition将会改变，下次你执行ScrollBy时，它不会重置滚动位置，它会从你已经滚动的点开始滚动。