怎么样让tabsheet1充满整个pagecontrl??

Question

我在我的窗体上加了一个suipack中的xp效果，可是tabsheet1怎么也不能充满整个pagecontrl，在最上面总是保留一部分应该是tabshee1的名字，其中我的tabsheet1的tabvisible已经设成了false了，请问我应该怎么做呀！！

Answer 1

试用用Win3.1页上的TNotebook控件～～

Answer 2

我做的窗体里有了好多的tabsheet,要换别的工程有点大,我不想换,请问还有没有别的办法呀!!

Answer 3

//就算帮你UP～～
procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.TabHeight := 1;
  PageControl1.TabWidth := 1;
end;

Answer 4

suipack 的pagecontrl不怎么好用，写我在写一个安装程序的时候也遇到了同样的问题，
我的解决办法是用flat控件代替，反正要充满整个pagecontrl，视觉上没有什么问题

Answer 5

所有的TabSheet都设TabVisible 为False，然后用ActivePage设置你要显示TabSheet

Answer 6

请问flat控件是delphi自带的,还是第三方的呀!

Answer 7

同意里拉DWGZ() 的说法。
所有的TabSheet都设TabVisible 为False，然后用ActivePage设置你要显示TabSheet
tabvisible属性是在tabsheet页里。
你可以看一下delphi 的domo ，它里面的所有向导都是用pagecontrol做的，同时在delphi帮助里也提到，win3.1页里的控件只是为了兼容以前的版本，在win32平台下，最好使用pagecontrol ,tabvisible:=false 后和TNotebook样子一样。为了程序兼容性，还是用pagecontrol吧!

Answer 8

上一步，下一步很好写的啊。
下一步：pagecontrol1.ActivePageindex:=pagecontrol.ActivePageindex+1;
上一步：pagecontrol1.ActivePageindex:=pagecontrol.ActivePageindex-1;