appo icon

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

appo | PRO | 12/27/13 10:39:28 PM UTC | 0 ⭐ | 648 👁️ | Never ⏰ | []
Delphi |

240 B

|

None

|

0 👍

/

0 👎

Raw Download Clone Embed Print View 
procedure TForm3.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
 
// Coded by Appo //

Comments