var R: TRectF; begin if TListView(Sender).ItemCount > 0 then // Just in case... begin // Get the last item's Rect R := TListView(Sender).GetItemRect(TListView(Sender).ItemCount - 1); // Bottom? if R.Bottom = TListView(Sender).Height then showmessage('Reached bottom'); end; end; |
Basta colocar no evento OnScrollViewChange do listview.
Nenhum comentário:
Postar um comentário