FMX用AniCalculations控制基类为TScrollBox的控件是否(滑动)滚动的公共单元

最新推荐文章于 2021-03-08 20:32:49 发布

原创最新推荐文章于 2021-03-08 20:32:49 发布 · 588 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#TCustomScrollBox #AniCalculations #IOS #Android #控件滚动控件滑动

delphi App开发同时被 3 个专栏收录

45 篇文章

订阅专栏

delphi语法

45 篇文章

订阅专栏

FireMonkey

17 篇文章

订阅专栏

本文介绍了一个FMX框架中用于控制多种滚动控件（如TScrollBox、TMemo等）滚动动画效果的实用函数IfScrolling。通过调整AniCalculations属性，可以实现滚动时的动画开启与关闭，适用于需要精细控制用户交互体验的场景。

FMX用AniCalculations控制基类为TScrollBox的控件是否(滑动)滚动的公共单元

适用组件：TScrollBox、TVertScrollBox、THorzScrollBox、TPresentedScrollBox、TFramedScrollBox、TFramedVertScrollBox、TMemo、TListBox、TListView

function IfScrolling(
ACanScrollControl:TCustomScrollBox;
Scrolling:Boolean):Boolean;
begin
if Scrolling=false then
begin
ACanScrollControl.AniCalculations.BeginUpdate;
ACanScrollControl.AniCalculations.Animation:=false;
ACanScrollControl.AniCalculations.BoundsAnimation:=false;
ACanScrollControl.AniCalculations.TouchTracking:=[];
ACanScrollControl.AniCalculations.EndUpdate;
Result:=false;
end else
begin
ACanScrollControl.AniCalculations.BeginUpdate;
ACanScrollControl.AniCalculations.Animation:=true;
ACanScrollControl.AniCalculations.BoundsAnimation:=true;
ACanScrollControl.AniCalculations.TouchTracking:=[ttVertical, ttHorizontal];
ACanScrollControl.AniCalculations.EndUpdate;
Result:=true;
end;

end;

function IfScrolling(
  ACanScrollControl:TCustomScrollBox;
  Scrolling:Boolean):Boolean;
begin
  if Scrolling=false then
  begin
    ACanScrollControl.AniCalculations.BeginUpdate;
    ACanScrollControl.AniCalculations.Animation:=false;
    ACanScrollControl.AniCalculations.BoundsAnimation:=false;
    ACanScrollControl.AniCalculations.TouchTracking:=[];
    ACanScrollControl.AniCalculations.EndUpdate;
    Result:=false;
  end else
  begin
    ACanScrollControl.AniCalculations.BeginUpdate;
    ACanScrollControl.AniCalculations.Animation:=true;
    ACanScrollControl.AniCalculations.BoundsAnimation:=true;
    ACanScrollControl.AniCalculations.TouchTracking:=[ttVertical, ttHorizontal];
    ACanScrollControl.AniCalculations.EndUpdate;
    Result:=true;
  end;

end;