Botton Izq. Pulsado

[jfgimenez]

Ramón,
> Estoy intentando detectar si el usuario mantiene pulsado el boton
> Izquierdo del mouse, pero no lo logro conseguir, ya intente con
> OnLButtonDown y OnLButtonUP, pero el intermedio seria, OnLButton???.
OnMouseMove
--
Un saludo,
José F. Giménez
http://www.xailer.com

[jfgimenez]

Ramón,
> TControl:OnMouseMove
>
>
> Evento que se produce cuando se mueve el ratón encima del control.
>
> Se dispara apenas pongo el mouse sobre el objeto, no cuando apreto el
> boton y lo mantengo pulsado.
Lo que debes hacer es controlarlo con una variable. P.ej., añade una DATA
lPulsado INIT .F. al formulario, y después la pones a .T. en OnLButtonDown,
y a .F. en OnLButtonUp. Y dentro de OnMouseMove simplemente compruebas que
esté a .T.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[jfgimenez]

Ramón,
pon un ejemplo lo más sencillo posible y autocontenido, es decir, que pueda
compilar para revisarlo.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[zeasoftware]

TControl:OnMouseMove
Evento que se produce cuando se mueve el ratón encima del control.
Se dispara apenas pongo el mouse sobre el objeto, no cuando apreto el boton
y lo mantengo pulsado.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[zeasoftware]

Al parecer OnLButtonup no se dispara, ya que tengo un letrero y solo se
cambia al apretar el boton, pero si lo suelto el letrero sigue diciendo
DOWN.
//---------------------------------------------------------- --------------------
METHOD Label1LButtonDown( oSender, nKeyFlags, nPosX, nPosY ) CLASS TForm1
::lMouseButtDown := .t.
::oLabel2:cText := "Down"
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Label1LButtonUp( oSender, nKeyFlags, nPosX, nPosY ) CLASS TForm1
::lMouseButtDown := .f.
::oLabel2:cText := "Up"
RETURN Nil
Inicia
olabel2 = "Label2"
Apreto mouse = "Down"
suelto mouse = "Down"
Gracias por el tiempo y la paciencia.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[zeasoftware]

Ya le avance y empece con lo que quiero,
en un oPanel inserto un TLabel, y ese TLabel lo quiero mover de lugar,
o mas bien, el usuario podria cambiarlo de lugar.
Un clasico arrastrar el TLabel de un punto a otro.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[zeasoftware]

Lo he logrado.
Gracias, me ayudo lo que indicabas.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/