本文介绍了一个用于 Delphi 中 ListBox 控件的方法，该方法可以为 ListBox 添加横向滚动条，通过计算所有项中最长字符串的宽度来确定滚动条的范围。
//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;
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;
扫一扫
2302
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
