Обработчик достижения конца списка listview в Delphi XE7

[Satellite]

Здравствуйте, каким образом можно отследить достижение конца списка в listview?

Наверное, все пользовались приложениями социальных сетей, где список обновляется автоматически. (Пример: VK)

Хочется сделать также и в Delphi XE7.

 

В Java обрабатывается с помощью onOverScrolled

[mab]

Может как здесь?

[Satellite]

Может как здесь?

Почти, но в listview нету события OnViewPortPositionChange. 

[estra]

Как вам такой вариант?

procedure TForm1.ListView1Painting(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
   if ListView1.GetItemRect( ListView1.ItemCount-1 ).Bottom = ListView1.Height then
      Label1.Text := 'YES! Через одно место, но работает!'
   else
      Label1.Text := 'Это еще не конец...';
end;

[Satellite]

Как вам такой вариант?

Спасибо, модернизирую. ^.^