setparent后，拖动窗口，父窗体卡死，急！

Question

我把自己程序的窗口用setparent设置为另一个程序窗口的子窗口
borderstyle设置为bsnone；
利用改消息的办法使鼠标可以在窗口任意位置拖动窗体，如下
procedure TForm1.MyMsg(var Msg: TWMNCHitTest);
begin
  Inherited;
  if Msg.Result = HTCLIENT then Msg.Result := HTCAPTION;
end;
问题来了，只要我设置了父窗体后，一拖动，父窗体就卡死
但是如果我把borderstyle设置为其他
同样改消息，点窗口却能正常拖动，没有任何问题
这是什么问题呢？
请大侠帮忙

Answer 1

procedure TForm1.MyMsg(var Msg: TWMNCHitTest); 
begin 
  if Msg.Result = HTCLIENT then Msg.Result := HTCAPTION; 
  Inherited; 
end; 
還有你是FORM1貼到別的窗體是嗎？

Answer 2

是的，把自己的form弄到其他程序窗口
另，如果有把自己程序的两个窗口都前置的方法，也告诉我啊