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

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;