Drag the shape on the screen by clicking on any part of the

appo Dec 27th, 2013 338 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TForm3.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  2. Shift: TShiftState; X, Y: Integer);
  3. const
  4. SC_DragMove = $F012; { a magic number }
  5. begin
  6. ReleaseCapture;
  7. perform(WM_SysCommand, SC_DragMove, 0);
  8. end;
  10. // Coded by Appo //
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand