码迷,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:=to Items.Count-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
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!