免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

“要Panel頭部的某個區(qū)域可以鼠標(biāo)拖動”簡單一點：
Panel的頭部加上一個Label,Label-> Color=clBlue;

void   __fastcall   TForm1::Label1MouseDown(TObject   *Sender,
            TMouseButton   Button,   TShiftState   Shift,   int   X,   int   Y)
{

/*這樣也可以
        ReleaseCapture();
        SendMessage(Panel1-> Handle,WM_SYSCOMMAND,SC_MOVE+HTCAPTION,0);

*/
  WORD   SC_DragMove   =   0xF012;
  SetCapture(NULL);
  SendMessage(Panel1-> Handle,WM_SYSCOMMAND,SC_DragMove,0);
}