Mover un formulario

Mover un formulario sin agarranlo por la barra de titulo

1 respuesta

Respuesta
1
Para realizar esto 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
Eso es todo espero sirva

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas