ManualDock 窗口融合技术

//窗口融合技术 
{

创建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;

通过 Wiz 发布