| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/11/9 18:46:34 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | delphi引入了一些新特征。docking 就是其中的一项，有人将docking译为对接、入坞、结合等，也可以译为“窗口融合技术”。那么什么是窗口融合技术呢？窗口融合是一项先进的界面设计技术，体现了当今的发展趋势。word97的浮动工具栏就是一种窗口融合技术，有时也称为word97风格的浮动工具栏。下面针对目前比较流行的窗口与窗口的融合例程来进行：经过笔者一段时间的使用，发现panel控件最适合作两个窗口融合的工具。由于这是最一般的情况，所以这里举一个具有代表性的例子详细说明。我们要达到的要求是：程序运行后，出现主窗口，按一个按钮，出现另一个窗口，拖动此窗口，与主窗口融合在一起，融合后主窗口的caption变成两个窗口的caption相加。在主窗口form1中放置两个panel控件(panel1和panel2)，一个button控件(button1)；另一个窗口form2为空白窗口。具体属性设置如下： panel1： align：alleft； docksite：true； usedockmanager：true； panel2： align：albottom； docksite：true； usemanager：true； form2： anchors：[aktop，akbottom，akleft，akright]； dragmode：dmautomatic； dragkind：dkdock； 设置button1的onclick事件，对应的代码如下： procedure tform1.button1click(sender: tobject); begin form2.show; a:=form1.caption; b:=form2.caption; end; 设置panel1和panel2的onundock事件，代码如下： procedure tform1.panel1undock(sender: tobject; client: tcontrol; newtarget: twincontrol; var allow: boolean); begin form1.caption:=a; form1.refresh; end; 设置panel1和panel2的ondockdrop事件，代码如下： procedure tform1.panel1dockdrop(sender:tobject; source: tdragdockobject; x, y: integer); begin form1.caption:=a＋′,′＋b; form1.refresh； end;其中a，b为string型变量，用以保存窗口的最初标题，在form1的接口处声明。 ---------------------------------------------- |
|||||
| 信息 |
| 登陆以后才能回复 |
