拖动窗体的任意区域移动窗体

学习大师原创文档，请勿转载，侵权必究。

procedure TFrmVideo.P_BKMouseDown(Sender: TObject; Button: TMouseButton;

   Shift: TShiftState; X, Y: Integer);

begin

if ptInRect(Rect(P_BK.Left,P_BK.Top,P_BK.Width+P_BK.Left,P_BK.Height+P_BK.Top),Point(X,Y)) then

   begin

   ReleaseCapture;

   SendMessage(Handle, WM_SYSCOMMAND, 61457, 0);

   end;

end;