• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphi自动调整combobox下拉列表宽度（PostMessageCB_SETDROPPEDWIDTH）

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

在combobox所在的窗口的Formshow事件里调用即可

 

[delphi] view plain copy
 
  1. procedure SetComboBoxListWidth( AComboBox: TComboBox );  
  2. var  
  3.   i: Integer;  
  4.   nMaxLen, nMinWidth: integer;  
  5.   nFontWidth: Integer;  
  6.   nCboLeft: integer;  
  7.   ctlCustom: TControl;  
  8. begin  
  9.   nCboLeft := AComboBox.Left;  
  10.   ctlCustom := AComboBox;  
  11.   with AComboBox do  
  12.   begin  
  13.     nFontWidth := Round( Abs(Font.Height / 2 ) );  
  14.     nMaxLen:= 0;  
  15.     for i:=0 to Items.Count-1 do  
  16.     begin  
  17.       if length(Items[i])* nFontWidth > nMaxLen then  
  18.         nMaxlen:= length(Items[i])* nFontWidth+5;  
  19.     end;  
  20.     if Items.Count > DropDownCount then  
  21.       nMaxLen := nMaxLen + 20;  
  22.     if nMaxLen > Width then  
  23.     begin  
  24.       if Items.Count>DropDownCount then  
  25.       begin  
  26.         SendMessage( Handle, CB_SETHORIZONTALEXTENT, nMaxLen+5, 0 );  
  27.   
  28.         {解决分辨率小导致的ComboboxList的宽度超出屏幕}  
  29.         //while 部分是用来取出combobox控件相对与窗体的横坐标  
  30.         while not (ctlCustom.Parent is TForm) do  
  31.         begin  
  32.           nCboLeft := nCboLeft + ctlCustom.Parent.Left;  
  33.           ctlCustom := ctlCustom.Parent;  
  34.         end;  
  35.         nMinWidth := Min(400, nMaxLen);                      // 使用不大于nMaxLen的数做比较  
  36.         if (nCboLeft + nMinWidth) > Screen.Width-25 then     // 不超出屏幕，并保留窗口滚动条宽度，约25  
  37.           nMinWidth := Screen.Width-25-nCboLeft;  
  38.         nMinWidth := Max(nMinWidth, Width);                  // 不小于控件自身宽度  
  39.   
  40.         PostMessage(Handle, CB_SETDROPPEDWIDTH, nMinWidth, 0);   
  41.       end  
  42.       else  
  43.         PostMessage(Handle, CB_SETDROPPEDWIDTH, nMaxLen , 0);  
  44.           
  45.       ShowHint := True;  
  46.     end  
  47.     else  
  48.     begin  
  49.       SendMessage( Handle, CB_SETHORIZONTALEXTENT, 0, 0 );  
  50.       PostMessage(Handle, CB_SETDROPPEDWIDTH, Width , 0);  
  51.     end;  
  52.   end;  
  53. end;  

http://blog.csdn.net/youthon/article/details/8179348

 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi XE2 之 FireMonkey 入门(26) - 数据绑定: TBindingsList: TBindExprItems ...发布时间：2022-07-18
下一篇：
delphi文件的操作，利用WindowsAPI判断文件共享锁定状态发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap