//窗口融合技术
{
创建2个窗体 form1 form2
panel
button1
button2
设置panel的DockSite:=true;
}
//代码没用
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ManualDock(Form1.Panel1,nil,alNone);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.ManualDock(nil,nil,alnone);
end;