我想要一个带扁平滚动条的ListBox控件！哪里有下载！

Question

use FlatSB;
这个单元里面的函数能满足你的要求；

Answer 1

www.flatstyle2k.deflatstyle 一套不错的平样式控件  应该可以满足你的需求

Answer 2

自己给listbox加上水平滚动条
procedure TForm1.FormCreate(Sender: TObject); 
var 
  i, MaxWidth: integer; 
begin 
  MaxWidth := 0; 
  for i := 0 to ListBox1.Items.Count - 1 do 
  if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then 
    MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]); 
  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0); 
end;