リストボックスに水平スクロールバーを設置する

リストボックスに水平スクロールバーを設置する

サンプルを実行すると、下記の図のようにリストボックスに水平スクロールバーが追加されます。

■必要なコンポーネント

ListBox
Butｔon

■使用するAPI関数

SendMessage（指定のウインドウにメッセージを送る）

■ソースは下記のようになります。追加している所は青色です。

■水平スクロールバーを設置する処理

procedure

 TForm1.FormCreate(Sender:
TObject);

Var

　i : integer;

begin



　//初期設定

　For i := 0 to 12 do

　　ListBox1.Items.Add('これはテストです。');



end;



procedure TForm1.Button1Click(Sender: TObject);

begin



　//水平スクロールバーを設置（第三引数は各自で設定して下さい）

　SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT,
330, 0);



　//水平スクロールバーをなくす

　//SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 0, 0);

end;

Win32APIのページへ