怎么检查自己怀孕:可拖运控件

来源:百度文库 编辑:偶看新闻 时间:2024/05/03 03:49:46
“要Panel头部的某个区域可以鼠标拖动”简单一点:
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);
}