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

推荐分享