在主窗体中,左侧是导航条,右侧放一个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置到最后面就连标签页也不显示了。
众位高手帮帮我吧!应该怎么做呢!
将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置到最后面就连标签页也不显示了。
众位高手帮帮我吧!应该怎么做呢!
解决方案 »
- codegear是什么?跟delphi有什么关系?
- table 修改了,怎么 form 的字段没有跟着变 ?
- 给出3个条件,实现随机配对,请问这个函数,怎么编写?谢谢。。
- 怎么限制 DateTimePicker 时间查询范围?
- 关于图形转换的问题
- 在Midas中,客户端更新数据后,服务器端执行BeforeUpdateRecord,如何将修改的数据或者sql语句保存下来?
- 如何实现这样的删除?
- 高手帮忙啊,我顶不住了(来者有分啊)
- 紧急求助,更新延迟问题,如何解决?Access数据库
- 大富翁教育网的网址是什么?
- 一个FTP断点续传的问题(TidFTP控件),求高手解答!!!!
- DELPHI 编译出来的EXE老被360提示说是木马。
下面的是Delphi盒子上的一个人写的:
可以参考参考