Readygo技术搜索引擎 网络搜索 efish 2008-1-17 4:59:40

怎样让 ListBox 出现水平滚动条

楼主263（263）2001-12-11 22:14:57 在 Delphi / VCL组件开发及应用 提问

谢过！ 问题点数：0、回复次数：2Top

1 楼Greenberet（百萬石）回复于 2001-12-12 01:06:05 得分 0

在你的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)   then    
          MaxWidth   :=   ListBox1.Canvas.TextWidth(ListBox1.Items.Strings);    
      SendMessage(ListBox1.Handle,   LB_SETHORIZONTALEXTENT,   MaxWidth+2,   0);    
  end;    
   
          以上的代码首先得到ListBox中最长Item的长度，然后用LB_SETHORIZONTALEXTENT消息设置ListBox的水平滚动的宽度，宽度加2是为了给右面留2个点的边。    
       
       
  Top

2 楼ihihonline（潇潇->戒烟）回复于 2001-12-12 08:43:05 得分 0

你，你真不错Top