网上可以找到很多让Listbox产生横向滚动条的文章，其中的方法基本一样，就是定义一个函数，遍历Items取得最大的TextWidth值，然后发Listbox发消息LB_SETHORIZONTALEXTENT产生横向滚动条。典型例子如下：
procedure SetWidth(Sender: TObject);
var
i, w: Integer;
begin
w := 0;
with ListBox1 do begin
for i:=0 to Items.Count -1 do begin
if Canvas.TextWidth(Items[i]) > w then
w := Canvas.TextWidth(Items[i]);
end;
SendMessage(Handle, LB_SETHORIZONTALEXTENT, w+4, 0);
end;
end;
以[1] [2] [3] [4] [5] [6] [7] [8] 下一页
|
