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節點超過總數，然後刪除最後一個。

這個有點類似數據緩衝功能，當滑動，自動增加新的數據，減少數據顯示。