用pagecontrol加载窗体的问题

Question

本帖最后由 ttllhh 于 2011-10-05 15:02:14 编辑

Answer 1

他用的第三方的，你的问题是，窗体设置为无边框，你可以设计成不带滚动条的，比如i一个表格的话，窗体干吗要带滚动条？？，还可以用pagecontrol替代，关闭按钮可以自己做一个，放到指定位置

Answer 2

我也知道他是用第三方的，估计还可能是TMS控件包，图片放不上来，两个图的链接地址是：我做的效果：http://hi.csdn.net/space-1686567-do-album-picid-937231-goto-down.html
用友做的效果：http://hi.csdn.net/space-1686567-do-album-picid-937230-goto-down.html
不用有谁用过类似的功能？

Answer 3

用友那个应该不是窗体，不知道是哪个类似于pagecontrol的
三方控件实现的

Answer 4

这类是 dock （窗体停靠）技术。简单的可以用 JVCL 组件包，里面的 docking 组件，有例子，十分详细。

Answer 5

sailxia,谢谢回复，刚我一直在找JVCL 组件包，但delphi盒子里和csdn里都下载不成功，不知你是否有这个组件的安装程序？如果有，给我发一份可以吗？我QQ是：23263409

Answer 6

你给的事例肯定是第三方的，但是不用也能差不多能够实现把要在pagecontrol中Tab页中要显示的窗体的标题栏隐藏掉，如要显示的窗体是TShowFrom，在其显示时加入
setwindowlong(Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
height:=clientheight;
即可，窗体的边框问题可以对其进行重绘，效果图如下
(靠，不会贴图）

Answer 7

JCL：http://jcl.sf.net/daily/
JVCL：http://jvcl.sourceforge.net/daily/注意安装方法：解压后 JCL 和 JVCL 必须处于同一级目录。
例如：
D:.
├─JCL
│  
└─JVCL

Answer 8

可以通过Dock方式实现。
  if not Assigned(Form2) then
    Form2 := TForm2.Create(Application);  //设置位置大小，防止闪动
  Form2.Top := ts1.Top;
  Form2.Left := ts1.Left;
  Form2.Width := ts1.Width;
  Form2.Height := ts1.Height;  //显示在TabSheet中
  Form2.ManualDock(ts1,nil,alClient);
  Form2.Show;
  Form2.WindowState := wsMaximized;