窗体融合的？？(100分)

有两个窗体，我要实现单击窗体1中的button后,form2.show ,
同时实现窗体自动融合，form2融入form1的panel1中。怎样实现。

form2.parent := form1.panel1;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Parent:=Panel1;
Form2.Top:=0;
Form2.Left:=0;
Form2.Height:=Panel1.Height;
Form2.Width:=Panel1.Width;
Form2.Show;
end;

给你个例子，其实就是窗口的停靠技术 ：
程序运行后，出现主窗口，按一个按钮，出现另一个窗口，拖动此窗口，与主窗口融合在一起，融合后主窗口的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的接口处声明。
自己修改一下就可以了.

最简单了。
form1的panel的docksite属性设为true
form2的dragkind属性设有dock，dragmode设为dmautomatic
给分吧。

主要就是那个docksite属性

SINGLBOY
请你试一下
在你的form2里加上一个edit看看你可不可以选中它。

把form2的BorderStyle射成bsNone,bsSingle就可以

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
Form2.ManualDock(Panel1);//真正的融合（停靠），
end;

Panel1: TPanel
do
ckSite = True
DragKind = dkDock

Form2.ManualDock(Panel1);
Form2.show;
Panel1的Dock属性无所谓,D6环境下。

好啊好啊，我正想问呢，没想到已有现存的谢谢位大佬！

你要的效果，用frame不是可以直接实现吗？

同意wk_knife的。

同意wk_knife的。

谢谢大家!多谢了!

请看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1346084
功能强大的停靠控件，可以满足你的停靠要求