ListView 下拉更新 (支持 Android)

Delphi 前端之家
前端之家收集整理的这篇文章主要介绍了ListView 下拉更新 (支持 Android)，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

注意：XE7 已提供下拉更的功能。

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

适用：Delphi XE5,XE6

修改：需要修改到 Delphi 源码FMX.Platform.Android.pas，请见：

视频：

源码下载：

源码下载：

<div class="cnblogs_code">

//------------------------------------------------------------------------------
// . by 龟山阿卍 QQ                                         -
// http://www.cnblogs.com/onechen/                                             -
//                                                                             -
// 需修改                                                                      -
// FMX.Platform.Android.pas                                                    -
//  TPlatformAndroid.GetScrollingBehavIoUr: TScrollingBehavIoUrs;      -
//------------------------------------------------------------------------------

<span style="color: #0000ff;">unit<span style="color: #000000;"> Main;


<span style="color: #0000ff;">interface


<span style="color: #0000ff;">uses<span style="color: #000000;">

System.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,FMX.Types,FMX.Controls,FMX.Forms,FMX.Graphics,FMX.Dialogs,FMX.StdCtrls,FMX.ListView.Types,FMX.Objects,FMX.ListView,FMX.Ani;


<span style="color: #0000ff;">type<span style="color: #000000;">

TForm1 = <span style="color: #0000ff;">class<span style="color: #000000;">(TForm)

ToolBar1: TToolBar;

ListView1: TListView;

PullPaintBox: TPaintBox;

AniIndicator1: TAniIndicator;

RefreshTimer: TTimer;

RefreshLabel: TLabel;

RefreshImage: TImage;

Floatanimation1: TFloatanimation;

Label1: TLabel;

<span style="color: #0000ff;">procedure<span style="color: #000000;"> FormCreate(Sender: TObject);

<span style="color: #0000ff;">procedure<span style="color: #000000;"> ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">procedure<span style="color: #000000;"> ListView1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">procedure<span style="color: #000000;"> RefreshTimerTimer(Sender: TObject);

<span style="color: #0000ff;">private<span style="color: #000000;">

ShowUp,ShowDown: Boolean;

<span style="color: #0000ff;">public

<span style="color: #008000;">{<span style="color: #008000;"> Public declarations <span style="color: #008000;">}

<span style="color: #0000ff;">end<span style="color: #000000;">;


<span style="color: #0000ff;">var<span style="color: #000000;">

Form1: TForm1;


<span style="color: #0000ff;">implementation


<span style="color: #008000;">{<span style="color: #008000;">$R *.fmx<span style="color: #008000;">}


<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.FormCreate(Sender: TObject);

<span style="color: #0000ff;">var<span style="color: #000000;"> i: Integer;

Item1: TListViewItem;

<span style="color: #0000ff;">begin

<span style="color: #0000ff;">for i:=<span style="color: #800080;">0 <span style="color: #0000ff;">to <span style="color: #800080;">100 <span style="color: #0000ff;">do

<span style="color: #0000ff;">begin<span style="color: #000000;">

Item1 :=<span style="color: #000000;"> ListView1.Items.Add;

Item1.Text :=<span style="color: #000000;"> i.ToString;

<span style="color: #0000ff;">end<span style="color: #000000;">;

ShowUp   :=<span style="color: #000000;"> False;

ShowDown :=<span style="color: #000000;"> False;

<span style="color: #0000ff;">end<span style="color: #000000;">;


<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">begin

<span style="color: #0000ff;">if <span style="color: #0000ff;">not AniIndicator1.Visible <span style="color: #0000ff;">then

<span style="color: #0000ff;">begin<span style="color: #000000;">

RefreshLabel.Visible :=<span style="color: #000000;"> True;

<span style="color: #0000ff;">if ListView1.ScrollViewPos < -<span style="color: #800080;">80 <span style="color: #0000ff;">then

<span style="color: #0000ff;">begin<span style="color: #000000;">

RefreshLabel.Text := <span style="color: #800000;">'<span style="color: #800000;">放开后可更新<span style="color: #800000;">'<span style="color: #000000;">;


           RefreshImage.Visible :</span>=<span style="color: #000000;"&gt; True;
           </span><span style="color: #0000ff;"&gt;if</span> <span style="color: #0000ff;"&gt;not</span> ShowUp <span style="color: #0000ff;"&gt;then</span>
           <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
                ShowUp :</span>=<span style="color: #000000;"&gt; True;
                Flo<a href="/tag/atan/" target="_blank" class="keywords">atan</a>imation1.StartValue :</span>= <span style="color: #800080;"&gt;360</span><span style="color: #000000;"&gt;;
                Flo<a href="/tag/atan/" target="_blank" class="keywords">atan</a>imation1.StopValue  :</span>= <span style="color: #800080;"&gt;180</span><span style="color: #000000;"&gt;;
                Flo<a href="/tag/atan/" target="_blank" class="keywords">atan</a>imation1.Start;
           </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
      </span><span style="color: #0000ff;"&gt;end</span>
      <span style="color: #0000ff;"&gt;else</span>
      <span style="color: #0000ff;"&gt;if</span> ListView1.ScrollViewPos < -<span style="color: #800080;"&gt;40</span> <span style="color: #0000ff;"&gt;then</span>
      <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
           RefreshLabel.Text :</span>= <span style="color: #800000;"&gt;'</span><span style="color: #800000;"&gt;下拉可更新</span><span style="color: #800000;"&gt;'</span><span style="color: #000000;"&gt;;

           RefreshImage.Visible :</span>=<span style="color: #000000;"&gt; True;
           </span><span style="color: #0000ff;"&gt;if</span> <span style="color: #0000ff;"&gt;not</span> ShowDown <span style="color: #0000ff;"&gt;then</span>
           <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
                ShowDown :</span>=<span style="color: #000000;"&gt; True;
                Flo<a href="/tag/atan/" target="_blank" class="keywords">atan</a>imation1.StartValue :</span>= <span style="color: #800080;"&gt;180</span><span style="color: #000000;"&gt;;
                Flo<a href="/tag/atan/" target="_blank" class="keywords">atan</a>imation1.StopValue  :</span>= <span style="color: #800080;"&gt;360</span><span style="color: #000000;"&gt;;
                Flo<a href="/tag/atan/" target="_blank" class="keywords">atan</a>imation1.Start;
           </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
      </span><span style="color: #0000ff;"&gt;end</span>
      <span style="color: #0000ff;"&gt;else</span>
      <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
           RefreshLabel.Text :</span>= <span style="color: #800000;"&gt;''</span><span style="color: #000000;"&gt;;
           RefreshImage.Visible :</span>=<span style="color: #000000;"&gt; False;
      </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;


<span style="color: #0000ff;">end<span style="color: #000000;">;


<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">begin

<span style="color: #0000ff;">if RefreshLabel.Visible <span style="color: #0000ff;">then

<span style="color: #0000ff;">begin<span style="color: #000000;">

RefreshLabel.Visible :=<span style="color: #000000;"> False;


      </span>//<span style="color: #000000;"&gt; 开始更新
      AniIndicator1.Visible :</span>=<span style="color: #000000;"&gt; True;
      AniIndicator1.Enabled :</span>=<span style="color: #000000;"&gt; True;

      RefreshTimer.Enabled :</span>=<span style="color: #000000;"&gt; True;
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;


<span style="color: #0000ff;">end<span style="color: #000000;">;


<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.RefreshTimerTimer(Sender: TObject);

<span style="color: #0000ff;">begin

//<span style="color: #000000;"> 结束更新

RefreshTimer.Enabled  :=<span style="color: #000000;"> False;


 AniIndicator1.Enabled :</span>=<span style="color: #000000;"&gt; False;
 AniIndicator1.Visible :</span>=<span style="color: #000000;"&gt; False;

 ShowUp   :</span>=<span style="color: #000000;"&gt; False;
 ShowDown :</span>=<span style="color: #000000;"&gt; False;


<span style="color: #0000ff;">end<span style="color: #000000;">;


<span style="color: #0000ff;">end.

猜你在找的Delphi相关文章

ffmpeg 部分api delphi 版
ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用， 抽空研究了一下该库...
寄存器备忘
32位CPU所含有的寄存器有：4个数据寄存器(EAX、EBX、ECX和EDX)2个变址和指针寄存器(ESI和E...
键位码
指令整理
1 mov dst, src dst是目的操作数，src是源操作数，指令实现的功能是：将源操作数送到目的操...
delphi中ShellExecute使用详解
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProces...
delphi控件安装与删除
附带通用控件安装方法： ---------- 基本安装 1、对于单个控件，Componet-->install co...
Delphi 怎样 把TParams 或 record写到流里面
type   TRec=Record     msg:string;     pic:TMemoryStream; end; procedure TForm2...
一个用delphi写的整合汇编与api的简单的窗口程序
program Project1; { Types and Structures Definition } type   WNDCLASSEX = packed re...
用Delphi模拟键盘输入
   在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不...
Delphi 中的 procedure of object
delphi中经常见到以下两种定义 Type TMouseProc = procedure (X,Y:integer); TMouse...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积