| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/3 14:12:01 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 假设现有form1(主窗口)中添加一panel作为融合的控件，再添加一form2进行融合, 进行设置后在运行时拖动form2时就可以进行融合，但如何在程序一开始运行就实现融合，不需要进行拖动，请指教。。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/3 14:27:19 | ||||
| 1楼： | Form2.ManualDock(*); ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/3 23:29:22 | ||||
| 2楼： | 可不可以具体点，是在哪个事件中加入，后面您所谓的*是指哪些，能否列出来，谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/3 23:39:46 | ||||
| 3楼： | procedure TForm1.FormCreate(Sender: TObject); begin form2.BorderStyle := bsNone; form2.Parent := pnl1; form2.Show; end; 这样行不行啊? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 0:39:52 | ||||
| 4楼： | 你写的 form2.Parent := pnl1;后面的参数好象不对，是pnl1吗，还是。。。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 10:49:29 | ||||
| 5楼： | pnl1就是Panel的name,比如Panel1啦。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 12:38:17 | ||||
| 6楼： | sephil 大哥，你总是那么酷，但还是希望您能多说几个字！：》 ---------------------------------------------- -简单最美！ |
|||||
| 作者： |
|
2004/2/4 12:41:25 | ||||
| 7楼： | 他没那个时间哦……他正在忙C?????……我不多说了，呵呵 ---------------------------------------------- 大家好，我是Flyers。 是Delphi.Net版主，小弟会尽力解决大家的问题！谢谢支持！ |
|||||
| 作者： |
|
2004/2/4 12:58:05 | ||||
| 8楼： | ?? ---------------------------------------------- kurlno1 |
|||||
| 作者： |
|
2004/2/4 16:31:38 | ||||
| 9楼： | 哎 实在是懒啊 简单一点的问题给原理就够了嘛 自己稍微摸索一下就知道了 这样自己也记得牢一点啊... ManualDock是TControl的一个方法 这里按你的要求你可以放在Form的OnCreate事件里 procedure TForm1.FormCreate(Sender: TObject); begin Panel1.ManualDock(Self, nil, alClient); end; 具体可以参阅帮助 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/4 23:11:51 | ||||
| 10楼： | 太感谢了，懒人可以活得长一点嘛 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/6 9:23:12 | ||||
| 11楼： | to:sephil (NAILY Soft) procedure TForm1.FormCreate(Sender: TObject); begin Panel1.ManualDock(Self, nil, alClient); end; 我昨天这样试了。 可是这样发现panle的标题栏显示出来了， 怎么把哪个panle的标题栏去掉呢 ---------------------------------------------- 世界上有千千万万条路，总有一条路是属于我自己的； |
|||||
| 作者： |
|
2004/2/6 10:25:10 | ||||
| 12楼： | 嘿嘿大哥 为什么 panel拖出来以后就无法在贴到form1了？ ----------------------------------------------  
|
|||||
| 作者： |
|
2004/2/6 12:54:29 | ||||
| 13楼： | 如果你用的Dock方式,Dock后就会有那个标题栏的 没办法 不过你可以重写一个类,继承自TDockTree, IDockManager 然后自己管理 但是挺麻烦的 嘿嘿 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
