Delphi使ListBox下拉时出现水平滚动条?

Question

在你的Form的OnCreate事件中添加以下代码： 
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; 用此方法，包你成功！
    

Answer 1

给TListBox 发送一个LB_SetHorizontalExtent消息就行了。下面是源代码：
SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,5000, longint(0));