delphi xe6 让 ListView 在 Android 可回弹[根据龟山阿卍原创修改为xe6版本]

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;