//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;