//为ListBox添加水平滚动条
procedure TfrmLNKCCLBD.ShowHorScroll;
var
i, MaxWidth: integer;
begin
MaxWidth := 0;
for i:=0 to lbxFFLB.Items.Count-1 do
if MaxWidth<lbxFFLB.Canvas.TextWidth(lbxFFLB.Items.Strings[i]) then
MaxWidth := lbxFFLB.Canvas.TextWidth(lbxFFLB.Items.Strings[i]);
SendMessage(lbxFFLB.Handle,LB_SETHORIZONTALEXTENT, MaxWidth+5,0);
end;
procedure TfrmLNKCCLBD.ShowHorScroll;
var
i, MaxWidth: integer;
begin
MaxWidth := 0;
for i:=0 to lbxFFLB.Items.Count-1 do
if MaxWidth<lbxFFLB.Canvas.TextWidth(lbxFFLB.Items.Strings[i]) then
MaxWidth := lbxFFLB.Canvas.TextWidth(lbxFFLB.Items.Strings[i]);
SendMessage(lbxFFLB.Handle,LB_SETHORIZONTALEXTENT, MaxWidth+5,0);
end;
本文转自 byteh 51CTO博客,原文链接:http://blog.51cto.com/byteh/54898,如需转载请自行联系原作者