为ListBox添加水平滚动条
生活随笔
收集整理的這篇文章主要介紹了
为ListBox添加水平滚动条
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
//為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;
總結
以上是生活随笔為你收集整理的为ListBox添加水平滚动条的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 3.1 Adapter(适配器)
- 下一篇: 商业周刊:Facebook为何价值100