请教高手 ListBox 怎么可以加横向滚动条? 谢谢!(50分)

请教高手 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) then
MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings);

SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;

tan_jian的方法是好的，不过如果你知道最大宽度的话，可以直接设置Tlistbox的
ScrollWidth属性即可。