delphi - 平移时如何获取 TScrollBox 在 TLayout 中的位置？

Question

我正在使用父 FMX.Layouts.TScrollBox 来缩放和平移子 TLayout。一旦 TLayout 大于 TScrollBox，就可以进行平移。

我想要 TScrollBox 的(左上角)位置 .

查看 TScrollBox 和 TLayout 属性，我找不到适合我的位置(尝试了很多)。还有其他方法可以做到这一点，但对我来说这似乎是标准的，应该(？)包含在基类中。

PS:对于平移，我使用 TScrollBox.AniCalculations 但我认为这并不重要/有帮助。

Answer 1

要读取位置，请使用 TScrollBox 的 ViewportPosition 属性。它是一个 TPointF，描述如下:

Coordinates of the origin of the scrolling viewport specified as the offset from the origin of the content layout of this scroll box.

是documented here

如果您在平移期间需要事件，请使用 TPositionChangeEvent() 类型的 OnViewportPositionChange() 事件它没有正确记录，但声明为:

TPositionChangeEvent = procedure (Sender: TObject;
                         const OldViewportPosition, NewViewportPosition: TPointF;
                         const ContentSizeChanged: Boolean) of object;

应该是不言自明的

或者 OnHScrollChange() 和/或 TNotifyEvent 类型的 OnVScrollChange()