ListBoxをスクロールさせる

リストボックスをプログラムでスクロールさせるには TListBox の TopIndex プロパティを書き換えれば済むんですが、どうしても Win32 API でやりたい場合は LB_GETTOPINDEXで先頭インデックスを取得し、それをインクリメントした値を LB_SETTOPINDEX で送信すれば実現できます。以下の例はListBox1 を一行スクロールさせます。

■ ListBox をスクロールさせる例 
var
  intIndex     :  integer;
begin
  intIndex        :=   ListBox1.Perform (LB_GETTOPINDEX, 0, 0);  
  Inc(intIndex);
  ListBox1.Perform (LB_SETTOPINDEX, intIndex, 0);
end.