如何让ComboBox完整显示Items里面很长的字符串,就是有什么办法控制ComboBox下拉列表的宽度??? rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 USES math;{$R *.dfm}procedure TForm1.ComboBox1DropDown(Sender: TObject);var I: Integer; vMaxWidth: Integer;begin vMaxWidth := TComboBox(Sender).Width; for I := 0 to TComboBox(Sender).Items.Count - 1 do vMaxWidth := Max(vMaxWidth, TComboBox(Sender).Canvas.TextWidth(TComboBox(Sender).Items[I]) + 8); TComboBox(Sender).Perform(CB_SETDROPPEDWIDTH, vMaxWidth, 0); 快问快揭帖! 一个delphi写的程序.里面有一些数据库文件 如何才能知道是什么数据库格式的? 如何设置EXCEL单元格的边框~~急!!! 谁有杀木马的好软件啊??机器中木马了!!!!! 一个关于wise打包的问题 rave求例子 浅谈多态(转贴)//菜鸟请进! 这段程序事做什么用的? 关于Treeview又有一问题????? 关于从数据库读取word2010文档的问题,困扰我多时,请指教! ActiveFormX问题 关于MODEM编程问题(急)!!!!!
{$R *.dfm}
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
I: Integer;
vMaxWidth: Integer;
begin
vMaxWidth := TComboBox(Sender).Width;
for I := 0 to TComboBox(Sender).Items.Count - 1 do
vMaxWidth := Max(vMaxWidth,
TComboBox(Sender).Canvas.TextWidth(TComboBox(Sender).Items[I]) + 8);
TComboBox(Sender).Perform(CB_SETDROPPEDWIDTH, vMaxWidth, 0);