如何在我自制的表格控件里加入滚动条，我的控件是从TCustomControl继承下来的?

Question

如何在我自制的表格控件里加入滚动条，我的控件是从TCustomControl继承下来的?

Answer 1

给个例子你看看：
给listbox增加一个水平滚动条
{To add a horizontal scroll bar to
a list box component, use the following
procedure}procedure SetHorizontalScrollBar(lb : TListBox);
var
 i, MaxWidth: integer;
begin
 MaxWidth := 0;
 for i := 0 to lb.Items.Count - 1 do
 if MaxWidth < lb.Canvas.TextWidth(lb.Items[i]) then
   MaxWidth := lb.Canvas.TextWidth(lb.Items[i]); SendMessage(lb.Handle,
             LB_SETHORIZONTALEXTENT,
             MaxWidth + 5, 0);
end;{Usage:}
SetHorizontalScrollBar(ListBox1);

Answer 2

不行。但是还是谢谢你。
我想用ScrollWindowEx来做，能否有高手给我一点帮助。

Answer 3

我现在已经可以移动客户区的内容了，但是移动以后原先的内容没有清除，
我看了帮助，帮助中说设置flags为SW_ERASE，就可以清除无效区背景。
但是我设了没有用，请大哥大姐们帮助。

Answer 4

还想问一下，ScrollWindowEx函数是否是在Paint方法中设置啊？