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 取出鼠百标点击的 stringgrid 中某单度元格的值

Delphi 结束360safe和360保险箱进程 for Delphi

Delphi 让程序支持外来文件拖放的单元文件

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi hash md5

Delphi 内存加载并运行exe程序

Delphi 英文单词第一个字母大写

Delphi 两个exe之间共享数据

Delphi 设置combobox组合框的高度方法总结

Delphi文件监视主单元文件

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...