鼠标拖动Panel控件，鼠标拖动改变位置

// OnMouseDown事件中添加代码
void __fastcall TForm1::Panel1MouseDown(TObject * Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (Button == mbLeft)
        {
                ReleaseCapture();
                SendMessage(Panel1 -> Handle,WM_SYSCOMMAND,SC_MOVE + HTCAPTION, 0 );
        }
}
// ---------------------------------------------------------------------------