Resulta que estoy intentando poner un Tooltip en un Browse, dependiendo de donde esté situado el cursor, que muestre un texto u otro, y me he dado cuenta que, si bien funciona y cambia el text del Toltip, este "parpadea" y el evento OnMouseMove del Browse entra en un bucle.
Así pues, cogiendo el Sample de Xailer BrwEdit, en el primer Browse "oArrayBrowse1" y añadiendo el evento OnMouseMove...
METHOD ArrayBrowse1MouseMove( oSender, nKeyFlags, nPosX, nPosY ) CLASS TForm1
::oArrayBrowse1:cTooltip := "PRUEBA " + Str(nPosX)
LogDebug( nPosX, nPosY )
RETURN Nil
este tooltip se muestra parpadeante y la ventanita del logdebug no para de mostrar el mismo valor sin que se mueva el mouse de lugar.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Bucle en oBrowse
Bucle en oBrowse
Un Saludo,
Xevi.
Xevi.
- ignacio
- Site Admin
- Mensajes: 9246
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Bucle en oBrowse
Buenas tardes,
Seguramente sea el propio Windows el que esté enviando ese mensaje para forzar algún refresco. No obstante es muy sencillo su 'workaround':
Saludos
Seguramente sea el propio Windows el que esté enviando ese mensaje para forzar algún refresco. No obstante es muy sencillo su 'workaround':
Código: Seleccionar todo
METHOD ArrayBrowse1MouseMove( oSender, nKeyFlags, nPosX, nPosY ) CLASS TForm1
STATIC sPosX := 0, sPosY := 0
IF nPosX != sPosX .OR. nPosY != sPosY
::oArrayBrowse1:cTooltip := "PRUEBA " + Str(nPosX)
ENDIF
RETURN Nil
Re: Bucle en oBrowse
Ignacio,
lo siento, pero acabo de probarlo en el Sample de Xailer BrwEdit... y sigue sin funcionar.
parpadea constantemente sin mover el raton y nunca desaparece el Tooltip.
lo siento, pero acabo de probarlo en el Sample de Xailer BrwEdit... y sigue sin funcionar.
parpadea constantemente sin mover el raton y nunca desaparece el Tooltip.
Un Saludo,
Xevi.
Xevi.
- ignacio
- Site Admin
- Mensajes: 9246
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Bucle en oBrowse
Se me olvido lo más obvio de todo (dentro del IF):XeviCOMAS escribió:Ignacio,
lo siento, pero acabo de probarlo en el Sample de Xailer BrwEdit... y sigue sin funcionar.
parpadea constantemente sin mover el raton y nunca desaparece el Tooltip.
Código: Seleccionar todo
sPosX := nPosX
sPosY := nPosY