Delphi XE6

找出 FMX.Platform.Android.pas 档案,并复制到自己的 Project 路径里,找到 GetScrollingBehaviour 函数,修改成如下:

unit FMX.Platform.Android;

function TPlatformAndroid.GetScrollingBehaviour: TScrollingBehaviours;
begin
Result := [TScrollingBehaviour.BoundsAnimation{可回弹}, TScrollingBehaviour.Animation, TScrollingBehaviour.AutoShowing, TScrollingBehaviour.TouchTracking];
end;
05-11 16:16