delphi - Delphi XE8 で最後の TListBoxItem までスクロールされた TListBox を処理するにはどうすればよいですか?

Question

最初に 15 個の TListBoxItem をロードし、TListBoxItem の一番下までスクロールするたびに、別の 15 個の TListBoxItem を追加する TListBox を作成しようとしています。Delphi XE8 の firemonkey マルチデバイス プロジェクト。

今、ユーザーが TListBox で一番下までスクロールされているかどうかを知る方法がわかりません。TListBox のすべてのイベントを試しましたが、どれも実行していないようです。

Answer 1

プラットフォームがWindowsの場合、次のようなことを試すことができます

var
  i: Integer;
  x:Double;
Begin
  x := ListBox1.Height / ListBox1.ItemHeight;
  i :=  GetScrollPos(ListBox1.Handle, SB_VERT);
  if i + x >= ListBox1.Items.Count then
    ShowMessage('It is at the end of scroll');
End;