盒子论坛 v2.1

比方说我想把比较窄的窗口融合时自动排成一列，较宽的窗口融合时也自动排成一列（假定较窄的那两个窗口初始宽度一样宽，较宽的两个窗口初始宽度也一样宽）
----------------------------------------------
-在哪里，在哪里见过你，你的笑容那样熟悉，我一时想不起...

作者：

cherryjing (菜菜)	★☆☆☆☆	-
	普通会员

2004/3/24 11:00:10

2楼：

为什么还是没有人回答我？是我没表达清楚，还是的确有难度，又或者其他什么原因？
----------------------------------------------
-在哪里，在哪里见过你，你的笑容那样熟悉，我一时想不起...

作者：

shiro (比卡丘)	★☆☆☆☆	-
	普通会员

2004/3/24 13:37:09

3楼：

不懂……窗体放在PANEL里……
----------------------------------------------
巧克力PIKA

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/24 13:42:48

4楼：

晕死！想象力不够！
----------------------------------------------

作者：

cherryjing (菜菜)	★☆☆☆☆	-
	普通会员

2004/3/24 16:58:03

5楼：

下面是对窗口融合的简单介绍和简单例子，有兴趣的同胞不妨试一试，您就知道我是什么意思了。

　　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的接口处声明。

----------------------------------------------
-在哪里，在哪里见过你，你的笑容那样熟悉，我一时想不起...

信息

登陆以后才能回复