起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 167|回复: 4

【结】ComboBox下拉项内容过长,显示不全问题

[复制链接]
发表于 2010-4-22 10:10:22 | 显示全部楼层 |阅读模式
ComboBox 长度固定(美观),但是里面有几项内容很长,下拉时显示到 ComboBox长度时就截掉了,
怎么让它全部内容显示出来。

       谢谢!
回复

使用道具 举报

 楼主| 发表于 2010-4-22 11:38:41 | 显示全部楼层

搞定。结
回复 支持 反对

使用道具 举报

发表于 2010-4-22 12:11:20 | 显示全部楼层
把解决的方法共享一下吧,
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-22 15:24:40 | 显示全部楼层
procedure TMainForm.ComboBox1DropDown(Sender: TObject);
var
  I:   Integer;
  vMaxWidth:   Integer;
begin
  vMaxWidth   :=   TComboBox(Sender).Width;
  for   I   :=   0   to   TComboBox(Sender).Items.Count   -   1   do
  vMaxWidth   :=   Math.Max(vMaxWidth,TComboBox(Sender).Canvas.TextWidth(TComboBox(Sender).Items[I])   +   15);
  TComboBox(Sender).Perform(352,   vMaxWidth,   0);  //CB_SETDROPPEDWIDTH=352
end;
回复 支持 反对

使用道具 举报

发表于 2010-4-22 15:31:36 | 显示全部楼层
好贴
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 22:21 , Processed in 0.040632 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表