整容说文库 > 程序代码 > 教育资讯

请问如何可以改变 ComboBox 控件 左侧 下拉按钮的宽度??以及下拉菜单 List 中垂直滚动条的宽度?

来源:学生作业帮助网 编辑:整容说文库 时间:2019/09/15 21:58:44 程序代码
请问如何可以改变 ComboBox 控件 左侧 下拉按钮的宽度??以及下拉菜单 List 中垂直滚动条的宽度?程序代码
请问如何可以改变 ComboBox 控件 左侧 下拉按钮的宽度??以及下拉菜单 List 中垂直滚动条的宽度?谢谢各位!!!
SendMessage(Combobox1.Handle, CB_SETDROPPEDWIDTH, 200,0);
DropDownCount=5 说明下拉显示5个下拉选项
to paranoia190:
      下拉按钮的宽度 没变化阿?
大家可能没有理解我的意思,我是想改变 那个 有倒三角的小按钮的宽度!以及下拉的List中的垂直滚动条的宽度。
有想法!!
关注ing
学习ing
因客户的需要阿!
我建议重写一个,实在不行可以用button代替那个小按钮。
做个button代替那个小三角,点击时,隐藏button,在当前位置执行鼠标点击的API,显示button
请问是什么消息使 ComboBox 的下拉列表关闭的。
左侧有下拉按钮吗?右侧吧。
按钮的宽度就无法改变,但下拉水平宽度可以改变。用OnDropDown事件。

var
  i:integer;
  iLen:integer;
  iReaWidth:integer;
begin
  iLen:=0;

  for i:=0 to ComboBox1.Items.Count-1 do
  begin
    if iLen<length(ComboBox1.Items.Strings[i]) then
       iLen:=length(ComboBox1.Items.Strings[i]);
  end;

  iReaWidth:=(iLen+4)*canvas.TextWidth('0');
  ComboBox1.Perform(CB_SETDROPPEDWIDTH,iReaWidth,0);
end;

垂直宽度应该可以用DropDownCount,例如可以设为100
程序代码