フリーソフト

TListBox

[Delphi] ListBoxをスクロールさせる

ListBoxのTopIndexプロパティを設定します。
TopIndexプロパティを使うと、リストボックスの一番上に表示したい項目を設定することができます。

[Delphi] ListBoxに横スクロールバーをつける

ListBoxに横スクロールバーを表示する例です。ListBoxの中で一番、幅の長いアイテムを見つけてから、それにあわせて横スクロールバーを表示しています。

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 MaxWidth:Integer;
 TextWidth:Integer;
begin
 //一番、幅の長い文字列を調べる
 MaxWidth:=0;
 for i:=0 to ListBox1.Items.Count-1 do begin
  TextWidth:=ListBox1.Canvas.TextWidth(ListBox1.Items[i]);
  if (MaxWidth < TextWidth) then MaxWidth:=TextWidth;
 end;

 //横スクロールバーを表示
 ListBox1.Perform (LB_SETHORIZONTALEXTENT, MaxWidth+10, 0);
end;