＋设为首页 ＋添加到收藏夹
设定Panel头部的某个区域可以被鼠标拖动
在MouseDown、MouseMove、MouseUp事件里判断、处理
加入
Panel1->DragMode=dmAutomatic;
Panel1->DragKind= dkDock;
或者在panel的屬性裏面設定就行
“要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);
}
