Arrastrar form sin Barra de Titulo

amaro

unread,

Jul 15, 2010, 9:57:02 AM7/15/10

to Comunidad de Visual Foxpro en Español

Hola lista, estoy diseñando formularios sin barra de titulo, ya que
estoy haciendole un barra personalizada con imagenes, pero para poder
continuar necesito poder agregarle la funcionalidad de arrastre al
formulario.
Alguna idea o sugerencia?
Desde ya muchas gracias.

Darío Castillejos Avilés

unread,

Jul 15, 2010, 10:02:18 AM7/15/10

to publice...@googlegroups.com

Revisa este artículo de PortalFox

http://www.portalfox.com/index.php?name=News&file=article&sid=2104

Saludos.

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de amaro
Enviado el: Jueves, 15 de Julio de 2010 08:57
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Arrastrar form sin Barra de Titulo

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5281 (20100715) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5281 (20100715) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

julio cesar nuñez loyo

unread,

Jul 15, 2010, 10:06:21 AM7/15/10

to publice...@googlegroups.com

Como puedo llamar desde un formulario una barra de herramientas creada en una clase.

De ante mano, muchas gracias.

¿Te falta espacio para tus correos? Enciende tu hotness con Hotmail

Amaro Silva

unread,

Jul 15, 2010, 10:11:48 AM7/15/10

to publice...@googlegroups.com

Muchas gracias es lo que necesitaba.

--
Amaro Silva.

Walter R. Ojeda Valiente

unread,

Jul 15, 2010, 10:17:36 AM7/15/10

to publice...@googlegroups.com

Hola

Es muy fácil hacer lo que pides.

En tu formulario agrega un método llamado "MoverVentana" o algo similar, con el siguiente código:

LPARAMETERS nXCoord, nYCoord
  
  with ThisForm
    do while MDown()
      .Move(.Left + MCol(.Name, 3) - nXCoord, .Top + MRow(.Name, 3) - nYCoord)
    enddo
  endwith
  
Return
*
*
Y en el método MouseMove de tu nueva barra de títulos (o en cualquier otro control), agrega el siguiente código:

LPARAMETERS nButton, nShift, nXCoord, nYCoord
  
  ThisForm.MoverVentana(nXCoord, nYCoord)
  
Return
*
*

Saludos.

Walter.

Hotmail: Trusted email with Microsoft’s powerful SPAM protection. Sign up now.

Amaro Silva

unread,

Jul 15, 2010, 10:35:44 AM7/15/10

to publice...@googlegroups.com

Muchas gracias a todos tema solucionado

--
Amaro Silva.

julio cesar nuñez loyo

unread,

Jul 15, 2010, 1:18:40 PM7/15/10

to publice...@googlegroups.com

Perdí mi computadora portátil donde tenía varias fuentes de sistemas realizados en VFP. ya no recuerdo cómo puedo llamar desde un formulario una barra de herramientas creada en una clase.

Espero que alguen me ayude, muchas gracias.

En Messenger están mis contactos con los que sí tengo contacto

Luis Maria Guayan

unread,

Jul 15, 2010, 3:02:03 PM7/15/10

to publice...@googlegroups.com

-- Crear una barra de herramientas en un formulario SDI --
http://www.portalfox.com/article.php?sid=1947

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

julio cesar nuñez loyo

unread,

Jul 16, 2010, 9:21:16 AM7/16/10

to publice...@googlegroups.com

¿Perdido entre tantos correos? Enciende tu hotness con Hotmail

julio cesar nuñez loyo

unread,

Jul 16, 2010, 5:12:56 PM7/16/10

to publice...@googlegroups.com

From: jc3...@hotmail.com
To: publice...@googlegroups.com
Subject: Barra de herramientas
Date: Thu, 15 Jul 2010 17:18:40 +0000

Perdí mi computadora portátil donde tenía varias fuentes de sistemas realizados en VFP. ya no recuerdo cómo puedo llamar desde un formulario una barra de herramientas creada en una clase.

Espero que alguen me ayude, muchas gracias.

En Messenger están mis contactos con los que sí tengo contacto

¿Te falta espacio para tus correos? Enciende tu hotness con Hotmail