<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 怎样给TListBox加上ScrollBars属性<br /><small>我仿照TCustomMemo的写法,但就是不行</small><br />
8/23 23:24<br />
fql<br /></p>
<p>#2 <br /><small>可以参考一下这个函数：<br />
// 为 Listbox 增加水平滚动条<br />
procedure ListboxHorizontalScrollbar(Listbox: TCustomListBox);<br />
var<br />
  i: Integer;<br />
  Width, MaxWidth: Integer;<br />
begin<br />
  Assert(Assigned(Listbox));<br />
  MaxWidth := 0;<br />
  for i := 0 to Listbox.Items.Count - 1 do<br />
  begin<br />
    Width := Listbox.Canvas.TextWidth(Listbox.Items[i] ..</small><br />
</p>
<p>#2 <a href="index.php?action=thread&amp;tid=222&amp;start=1&amp;offset=348&amp;sid=bcps2O">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=14&amp;sid=bcps2O">CnVCL 组件包</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=222&amp;sid=bcps2O">怎样给TListBox加上Sc ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=137&amp;sid=bcps2O">看看我这个报表如何，基 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=bcps2O">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>