Определить, когда достигнуто нижнее значение TVertScrollBox, затем выполнить некоторую процедуру - PullRequest
Новая
       9

Определить, когда достигнуто нижнее значение TVertScrollBox, затем выполнить некоторую процедуру

1 голос
/ 03 апреля 2019

У меня есть TVertScrollBox и куча потоковых макетов, сгенерированных во время выполнения через scrollbox ... это приложение, которое загружает сообщения. Я хочу загрузить 10 новых сообщений (макетов) всякий раз, когда пользователь достигает дна TVertScrollBox..

Я пытался использовать ViewportPositionChange Событие 

//-scroll is a TVertScrollBox
 uses Math
procedure TForm1.scrollViewportPositionChange(Sender: TObject;
  const OldViewportPosition, NewViewportPosition: TPointF;
  const ContentSizeChanged: Boolean);

begin
if CompareValue(NewViewportPosition.Y,  scroll.Content.Height  ) = EqualsValue then
 begin
 ShowMessage('lets start loading new posts');
 end;
end;

. Проблема с этой попыткой состоит в том, что она работает только тогда, когда в VertScrollBox есть два макета потока, что, очевидно, означает, что я делаю этонеправильно ..

Как мне этого добиться?

...