在主窗体中,左侧是导航条,右侧放一个pagecontrol控件。就是想让子窗体以标签页的模式显示出来。
将pagecontrol的align设置成alclient.当点击左侧导航条的任意按钮时,动态创建tabSheet和MDI子窗体。主要代码如下:
ts:= TRzTabSheet.Create(Self);
  ts.PageControl := RzPageControl1;
  Form2 := TForm2.Create(Self);
  ts.Caption:='form2';
  Form2.Parent := ts;
  Form2.Align := alClient;
  Form2.BorderStyle := bsNone;
  Form2.Show;
  Rzpagecontrol1.ActivePage:=ts;

运行起来后,发现子窗体显示不出来。以为是show的有问题。
将pagecontrol的align改成alleft后,再点击按钮,子窗体就在pagecontrol控件右侧显示出来了。好像子窗体不能在控件里显示一样,但上网查好像已经有人实现这样的功能了,为什么我的不好用呢!
Form2.Parent := ts;这句话已经将子窗体放置入tabSheet了,为什么不在tabsheet里显示呢?
当pagecontrol的align设置成alclient时,我怀疑子窗体是被挡住了。
加上Form2.bringtofront也不能显示在最前面。将pagecontrol置到最后面就连标签页也不显示了。
众位高手帮帮我吧!应该怎么做呢!