ListView 下拉更新 (支持 Android)
说明:展示如何在 Android 平台下,使用 ListView 下拉更新。
适用:Delphi XE5
修改:需要修改到 Delphi 源码 FMX.Platform.Android.pas,请见:[原创] 让 ListView 在 Android 可回弹
视频:http://v.youku.com/v_show/id_XNjU1MzExMDY0.html
源码下载:[原创]ListView下拉更新.zip
//------------------------------------------------------------------------------ // 2013.12.30 by 龟山阿卍 QQ 1467948783 - // http://www.cnblogs.com/onechen/ - // - // 需修改 - // FMX.Platform.Android.pas - // function TPlatformAndroid.GetScrollingBehaviour: TScrollingBehaviours; - //------------------------------------------------------------------------------ unit Main; interface uses 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; type TForm1 = class(TForm) ToolBar1: TToolBar; ListView1: TListView; PullPaintBox: TPaintBox; AniIndicator1: TAniIndicator; RefreshTimer: TTimer; RefreshLabel: TLabel; RefreshImage: TImage; FloatAnimation1: TFloatAnimation; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); procedure ListView1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); procedure RefreshTimerTimer(Sender: TObject); private ShowUp, ShowDown: Boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject); var i: Integer; Item1: TListViewItem; begin for i:=0 to 100 do begin Item1 := ListView1.Items.Add; Item1.Text := i.ToString; end; ShowUp := False; ShowDown := False; end; procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if not AniIndicator1.Visible then begin RefreshLabel.Visible := True; if ListView1.ScrollViewPos < -80 then begin RefreshLabel.Text := ‘放开后可更新‘; RefreshImage.Visible := True; if not ShowUp then begin ShowUp := True; FloatAnimation1.StartValue := 360; FloatAnimation1.StopValue := 180; FloatAnimation1.Start; end; end else if ListView1.ScrollViewPos < -40 then begin RefreshLabel.Text := ‘下拉可更新‘; RefreshImage.Visible := True; if not ShowDown then begin ShowDown := True; FloatAnimation1.StartValue := 180; FloatAnimation1.StopValue := 360; FloatAnimation1.Start; end; end else begin RefreshLabel.Text := ‘‘; RefreshImage.Visible := False; end; end; end; procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin if RefreshLabel.Visible then begin RefreshLabel.Visible := False; // 开始更新 AniIndicator1.Visible := True; AniIndicator1.Enabled := True; RefreshTimer.Enabled := True; end; end; procedure TForm1.RefreshTimerTimer(Sender: TObject); begin // 结束更新 RefreshTimer.Enabled := False; AniIndicator1.Enabled := False; AniIndicator1.Visible := False; ShowUp := False; ShowDown := False; end; end.
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。