TListBox Как определить, что ListBox прокручен в самый конец?

[long_island]

Привет.

 

А подскажите пожалуйста какое событие использовать при прокручивании списка в самый конец.

Чтобы как вот в популярных приложениях при прокручивании ленты вниз добавлять новые item'ы. С созданием aniindicatora я наверное разберусь, но событие никак не могу понять какое надо использовать, уже перепробовал несколько, пока никак.

Изменено 18 августа, 2014 пользователем Brovin Yaroslav

[Brovin Yaroslav]

Добрый день,

 

Определить, что TListBox (TScrollBox) прокручен до конца можно используя событие OnViewPortPositionChange. Это событие вызывается каждый раз при прокручивании контента. Этот метод возвращает текущее положение ViewPort - позиция окна, в котором отображаются текущие элементы TListBox. Об этом подробно описано в этой статье: "Платформонезависимый скроллинг в Fire Monkey"

 

Ниже приведен код, который проверяет, что TListBox прокручен до конца.

procedure TForm1.ListBox1ViewportPositionChange(Sender: TObject; const OldViewportPosition, NewViewportPosition: TPointF; const ContentSizeChanged: Boolean);
begin
  if NewViewportPosition.Y > ListBox1.ContentBounds.Height - ListBox1.Height then
    ShowMessage('End!');
end;