Aug 22
Para realizar este ejemplo agreguémosle al formulario las propiedades ejex, ejey, mdown. En el evento MouseMove del form agregamos lo siguiente
With thisform
If thisform.MDown Then
ThisForm .Left = ThisForm .Left + nXCoord - .ejex
ThisForm .Top = ThisForm .Top + nYCoord - .ejey
EndIf
EndWith
- En el evento MouseDown del form agregamos lo siguiente
- ThisForm.MDown = .F.
- En el evento MouseDown del form agregamos lo siguiente
- Thisform.MDown = .T.
Thisform.ejex = nXCoord
Thisform.ejey = nYCoord
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
