码迷，mamicode.com
首页 > Windows程序 > 详细

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

时间：2017-07-24 20:24:38      阅读：856      评论：0      收藏：0      [点我收藏+]

标签：width   board   opp   sdn   ems   net   lis   handle   pop   

在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

 

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

标签：width   board   opp   sdn   ems   net   lis   handle   pop   

原文地址：http://www.cnblogs.com/findumars/p/7230697.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！