Delphi的ComBobox控件下拉内容显示不全的解决方法

最新推荐文章于 2025-05-27 09:31:23 发布

踏雪寻梅i

最新推荐文章于 2025-05-27 09:31:23 发布

阅读量3k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： Delphi ComBobox 下拉框内容显示不全下拉框内容宽度

本文链接：https://blog.youkuaiyun.com/weixin_41660162/article/details/79828374

Delphi 专栏收录该内容

19 篇文章

订阅专栏

本文介绍了一种在 Delphi 中使 ComboBox 控件的下拉列表项宽度自适应的方法。通过遍历 ComboBox 的 Items 列表，并计算每个条目的文本宽度来确定下拉列表的最大宽度。这种方法可以确保较长的文本项也能完全显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.rzbtbtn1Click(Sender: TObject);
var
    _I,_MaxWidth :integer;
begin
    cbb1.Items.Add('abcd');
    cbb1.Items.Add('abcdefghijqlmxopqrst');
    cbb1.Items.Add('https://blog.youkuaiyun.com/weixin_41660162/article/details/79828210');
    cbb1.Items.Add('1213');

    _MaxWidth := cbb1.Width;
    for _I := 0 to cbb1.Items.Count - 1 do
    begin
        //设置控件下拉框的宽度自适应(根据像素比较)
        Canvas.Font.Size := 14;//经试验字体设置为14，刚刚好完全显示，但是ComBobox的Font.size = 12
        if _MaxWidth < Canvas.TextWidth(cbb1.Items.Strings[_I]) then
        begin
            _MaxWidth := Canvas.TextWidth(cbb1.Items.Strings[_I]);
            //第一个参数是下拉框组件的句柄,第二个参数是要发送的消息,第三个参数是要设定的宽度,第四个参数未使用
            SendMessage(cbb1.Handle, CB_SETDROPPEDWIDTH, _MaxWidth, 0);
        end;
    end;
    ShowMessage('最长的项的像素：'+IntToStr(Canvas.TextWidth('https://blog.youkuaiyun.com/weixin_41660162/article/details/79828210')));
    ShowMessage('改变后的ComBobox的最长：'+inttostr(_MaxWidth));
end;