急：请问高手怎么在“listbox”里加“横向的滚动条”？

Question

给分
procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  MaxWidth:=0;
  for i:=1 to 20 do
  begin
    ListBox1.Items.Add('AAAAAAAAAAAAAAAAAAAAAAAAA');
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
  if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items[i]) then
    MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items[i]);
  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;

Answer 1

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ::SendMessage(ListBox1->Handle,LB_SETHORIZONTALNET,2000,0);
}
你查查LB_SETHORIZONTALNET这个消息，我现在没有BCB，不知道写错了没有。