delphi tlistbox添加横向滚动条

本文整理自网络，侵删。

 
//delphi tlistbox添加横向滚动条
procedure TForm1.SetWidth(pListBox:TListBox);
var
  i, w: Integer;
begin
  w := 0;


  for i := 0 to pListBox.Items.Count - 1 do
  begin
    Canvas.Font.Name := pListBox.Font.Name;
    Canvas.Font.Size := pListBox.Font.Size;
    if Canvas.TextWidth(pListBox.Items[i]) > w then
    w := Canvas.TextWidth(pListBox.Items[i]);
  end;
  SendMessage(pListBox.Handle, LB_SETHORIZONTALEXTENT, w + 10, 0);
end;

――――――――――――――――

原文链接：https://blog.csdn.net/ozhy111/article/details/80940868
 

相关阅读 >>

Delphi 脉搏波9808血压计读取测试程序

Delphi 比较两数字大小取最大值

Delphi计算md5

Delphi实现qq右下角弹出信息窗口

Delphi 防止刷新时闪烁的终极解决办法

Delphi 网上获取北京时间xmlhttprequest如何访问需要安全验证的网站

如何把 Delphi 自带的内存泄露写到日志

Delphi cef4Delphi 常用设置

Delphi遍历指定目录下指定类型文件的函数

Delphi实现双击左ctrl键调用记事本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi tlistbox添加横向滚动条