//
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 );
}
}
// ---------------------------------------------------------------------------
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 );
}
}
// ---------------------------------------------------------------------------