21 de julio de 2003

Mover formulario agarrandolo por cualuier parte

Este código nos permite nos mover formulario agarrándolo por cualquier parte.

#define WM_LBUTTONUP 514
#define WM_SYSCOMMAND  274
#define SC_MOVE 61456
#define MOUSE_MOVE 61458
Declare integer SendMessage in "User32";
  Long  hwnd, Long wMsg, Long wParam, Long lParam 
* Este código se pondrá en el control_MouseDown ...
PUBLIC lngRet As Long
* Envía un MouseUp al Control
=SendMessage(thisform.hWnd, WM_LBUTTONUP, 0, 0)
* Envía la orden de mover el form
=SendMessage(thisform.hWnd, WM_SYSCOMMAND, MOUSE_MOVE, 0)
David Amador

No hay comentarios. :

Publicar un comentario