解决就散分:怎么让TabSheet加上滚动条(分全给不难吧)

解决就散分:如何让TabSheet加上滚动条(分全给不难吧)
TabSheet上控件太多,不加滚动条条不行呀

------解决方案--------------------
可以放一个ScrollBox1
------解决方案--------------------
可以放一个ScrollBox1
然后在ScrollBox放个TabSheet就可以啦，不过不要把TabSheet的Align设置为alClient
------解决方案--------------------
嗯,好像只有这个办法

直接写不行
------解决方案--------------------
在TabSheet里放一个ScrollBox1控件，设置ScrollBox1的BorderStyle属性为bsNone
------解决方案--------------------
来晚了,所有都动态程序
....
Tpagesheet: TTabSheet;

TLbl:TLabel;
Tsbox:Tscrollbox;
.........
Tpagesheet:=TTabSheet.Create(Pagecontrol1);
Tpagesheet.Parent:=Pagecontrol1;
Tpagesheet.PageControl:=Pagecontrol1;
Tpagesheet.Caption:=sParamName;
..........
//为了让其有滚动条条
Tsbox:=Tscrollbox.Create(Tpagesheet);
Tsbox.Parent:=Tpagesheet;
Tsbox.BorderStyle:=bsNone;
Tsbox.Align:=alClient;
..............
TLbl:=TLabel.Create(Application);
TLbl.Parent:=Tsbox;