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

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



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;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678