ListBoxの先頭のインデックス取得する

現在リストボックスに表示されている先頭の項目のインデックスを得るには TListBox の TopIndex プロパティを使います。でもどうしても Win32 API を使いたい場合は、LB_GETTOPINDEXメッセージをリストボックスに送信します。以下の例はListBox1 の先頭のインデックスをLabel1 に表示します。

■ ListBox の先頭インデックスを API で取得する例

var intIndex : integer; begin intIndex := ListBox1.Perform (LB_GETTOPINDEX, 0, 0); Label1.Caption := IntToStr(intIndex); end;