| Pregunta: | 4756 - COMO MOVER UNA VENTANA DESDE CUALQUIER PUNTO QUE SE LA TOME |
| Autor: | Diego Iribarren |
| quiero hacer click en cualquier lugar del formulario y moverlo con la misma precision como si lo arrastrara de la barra de titulo y la propiedad moveable fuera .t. lo he logrado hacer con todos los objetos pero con los formularios no pude a quien me responda muchas gracias!! | |
| Respuesta: | Jose samper |
| coloca el siguiente codigo en el form
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 | |