[原創] ListView 下拉更新 (支持 Android)

說明：展示如何在 Android 平台下，使用 ListView 下拉更新。

適用：Delphi XE5

修改：需要修改到 Delphi 源碼 FMX.Platform.Android.pas，請見：[原創] 讓 ListView 在 Android 可回彈 

視頻：http://v.youku.com/v_show/id_XNjU1MzExMDY0.html

源碼下載：[原創]ListView下拉更新.zip

//------------------------------------------------------------------------------
// . by 龜山阿卍 QQ                                         -
// http://www.cnblogs.com/onechen/                                             -
//                                                                             -
// 需修改                                                                      -
// FMX.Platform.Android.pas                                                    -
//  TPlatformAndroid.GetScrollingBehaviour: TScrollingBehaviours;      -
//------------------------------------------------------------------------------



= 
    
  




      i:=   
     ====
       AniIndicator1.Visible 
     = ListView1.ScrollViewPos < - 
          = =  ShowUp 
               == = 
          
           ListView1.ScrollViewPos < - 
          = =  ShowDown 
               == = 
          
          = =
      RefreshLabel.Visible 
     =//===
     //=====.