【Delphi】FMX 如何设置 TVertScrollBox的滚动位置,使其回到顶部原点

       在手机APP开发中, 纵向的滚动框非常实用,可以说是必不可少的控件,而当我们使用TVertScrollBox控件时,发现除了控件内部封装好的自动化的触控滚动,还有一个方法ScrollBy可以调整滚动条位置,但实际中我们发现,ScrollBy是一个增量滚动的方法,即ScrollBy(0,10)代表向上滚动10个像素,FMX中的像素点并不是屏幕的硬件像素点,而是FMX内部的逻辑像素点,通过ScrollBy方法内部源码也可以知道,若需要滚动到具体位置,需要设置VScrollBar.Value,如若需要让滚动框回到顶点,可设置VScrollBar.Value:=0;  但有点奇怪,经过TVertScrollBox的封装,VScrollBar子控件属性已无法直接访问。

       综上,我们若需要通过代码设置滚动框的滚动位置,可直接使用TScrollBox,如果非要使用TVertScrollBox,也有以下方法来设置,利用class的protected的访问特点:

type
  TScrollBoxPatch = class(TVertScrollBox);
procedure TfmMain.btnSetVScrollPosClick(Sender: TObject);
begin
  TScrollBoxPatch(loScrollBox).VScrollBar.Value := 0;
end;

    上面技巧可应用于在不同单元需要访问protected方法或属性的类,解决无法调用“因控件封装时一些没有暴露的方法”的问题。

    原理上是因为经过 TScrollBoxPatch = class(TVertScrollBox)定义之后,TScrollBoxPatch 和 TVertScrollBox在内存结构上是没有区别的,而由于TScrollBoxPatch在当前单元定义,所以当前单元也具有访问TScrollBoxPatch及其父类的protected定义段的方法或属性的权限,因此,TScrollBoxPatch.VScrollBar即等同于使用TVertScrollBox的父类TCustomScollBar.VScrollBar。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。

相关推荐