Delphi XE7 beta1的新功能之TListView滑动刷新数据功能

介绍

本文章介绍了Delphi XE7 beta1的新功能之Pull To Refresh，Delphi XE7 为TListView增加划动刷新数据的功。

设置ListView的属性：PullToRefresh=True
然后处理ListViewPullRefresh事件，下面是示例代码

1. procedure TForm1.ListView1PullRefresh(Sender: TObject);
   
2. var
   
3.     Item: TListViewItem;
   
4. begin
   
5.     Item := ListView1.Items.Insert(0);
   
6.     Item.Text :=  GetRandomText;
   
7.     Item.Height := 56;
   
8.     if ListView1.Items.Count > TotalListItems then
   
9.       ListView1.Items.Delete(ListView1.Items.Count - 1);
   
10. end;

复制代码

上面的代码是ListView当滑动自动触发事件，然后ListView添加一个Item，如果ITem节点超过总数，然后删除最后一个。

这个有点类似数据缓冲功能，当滑动，自动增加新的数据，减少数据显示。