一个关于ListBox的很简单的问题（但是怎么没有人知道呢？）

Question

请问如何为ListBox控件添加横向滚动条？那个属性是设置这个功能的？？

Answer 1

~~~~~~~~~~~~~~~~~~~~~~~~~
procedure SetHorizontalScrollBar(lb : TListBox) ;
var
  j, MaxWidth: integer;
begin
  MaxWidth := 0;
  for j := 0 to lb.Items.Count - 1 do
  if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then
    MaxWidth := lb.Canvas.TextWidth(lb.Items[j]) ;  SendMessage(lb.Handle,
              LB_SETHORIZONTALEXTENT,
              MaxWidth + 5, 0) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
{ Usage: }
SetHorizontalScrollBar(ListBox1) ;

Answer 2

ListBox没有这个属性，但你可以自己写一个
procedure TForm1.FormCreate(Sender: TObject);
begin
    SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,5000, longint(0));
end;