delphi自动调整combobox下拉列表宽度(PostMessage CB_SETDROPPEDWIDTH)

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi自动调整combobox下拉列表宽度(PostMessage CB_SETDROPPEDWIDTH)相关的知识,希望对你有一定的参考价值。

在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)的主要内容,如果未能解决你的问题,请参考以下文章

C# 学习笔记(16)ComboBox下拉列表框宽度自适应

delphi 下拉框问题

怎么改变combobox 下拉按钮宽度大小

ComboBox 自动 DropDownWidth 与 DataSource 类型无关

delphi控件combobox怎么在下拉选择里面写多行,每行的数据用啥分隔 combobox.items.text:= 后面?

python中如何调整ComboBox宽度