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

Question

TabSheet上控件太多,不加滚动条条不行呀

Answer 1

可以放一个ScrollBox1
然后在ScrollBox放个TabSheet就可以啦，不过不要把TabSheet的Align设置为alClient

Answer 2

在TabSheet里放一个ScrollBox1控件，设置ScrollBox1的BorderStyle属性为bsNone

Answer 3

放了也出不来!!我的问题是这样子的:
我有一个Pagecontrol控件,它的页(很多)及页面上的控件全是程序创建的. 由于记录多了就会有很多控件看不到.所以需要一个滚动条条.现在我加了一个ScrollBox后还是不管用.
我是将Pagecontrol控件放入这个ScrollBox中的

Answer 4

不是把PageControl放到ScrollBox中,是把ScrollBox放到TabSheet中,然后以ScrollBox作为容器,把你那些控件放到ScrollBox中

Answer 5

pagecontrol有很多页,我只放一个Scrollbox不行吗?如何搞呢

Answer 6

来晚了,所有都动态程序
....
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;