编码实现窗口融合？(200分)

delphi可以实现窗口融合技术，但需要拖动窗口后才能实现，能否实现执行代码使窗口自动融合？

SendMessage(formP_formhand, WM_CLOSE, 0, 0); //按句柄关闭窗口
//窗口放入formP中
formP.docksite:=true;
Application.Createform(ttjcxform,tjcxform);
tjcxform.HostDockSite:=mainForm.formP;
tjcxform.Show;
formP_FormHand:=tjcxform.Handle; //}

谢谢!