拖动无标题栏的窗口

放在窗口类中:
        void __fastcall myMove(TMessage & Msg);//自定义函数
        BEGIN_MESSAGE_MAP
             VCL_MESSAGE_HANDLER(WM_NCHITTEST, TMessage, myMove)
        END_MESSAGE_MAP(TForm)

void __fastcall TForm2::myMove(TMessage & Msg)
{
      TPoint pt;
      pt.x = Msg.LParamLo;
      pt.y = Msg.LParamHi;
      pt = ScreenToClient(pt);
      TRect rt;
      SetRect(&rt,0,0,ClientWidth,27);
      if(PtInRect(&rt,pt))
        Msg.Result = HTCAPTION;
      else
        DefaultHandler(&Msg);
}