Xailer & OZ Software

Prezados,
Como posso saber se o mouse está ou não sobre um determinado componente (no
meu caso o componente TPanel)... Tentei usando o evento "onmousemove" até
funciona, mas, somente executa se o mouse está sobre, mas, preciso saber
também se não está sobre o componente...
Obrigado pela atenção,
Reginaldo

Reginaldo,
hazlo así­:
CLASS TPanel FROM XPanel
RESERVED:
METHOD WMMouseMove( nWParam, nLParam )
METHOD WMMouseLeave( nWParam, nLParam )
ENDCLASS
METHOD WMMouseMove( nWParam, nLParam ) CLASS TPanel
LogDebug( "Estamos dentro" )
/* Esta funcion hace que al salir el puntero del
ratón del área del panel se dispare WMMouseLeave()
*/
TrackMouseEvent( ::Handle, TME_LEAVE )
RETURN Super:WMMouseMove( nWParam, nLParam )
METHOD WMMouseLeave( nWParam, nLParam ) CLASS TPanel
LogDebug( "Y ahora fuera" )
RETURN Nil
Saludos,
José Lalí­n

Caro José Lalí­n,
Vou testar sua solução e posto o resultado...
Obrigado pela atenção,
Reginaldo
"José Lalí­n" <dezac@corevia.com> escreveu na notí­cia da
mensagem:4e57ea92$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Reginaldo,
>
> hazlo así­:
>
> CLASS TPanel FROM XPanel
>
> RESERVED:
> METHOD WMMouseMove( nWParam, nLParam )
> METHOD WMMouseLeave( nWParam, nLParam )
>
> ENDCLASS
>
> METHOD WMMouseMove( nWParam, nLParam ) CLASS TPanel
>
> LogDebug( "Estamos dentro" )
> /* Esta funcion hace que al salir el puntero del
> ratón del área del panel se dispare WMMouseLeave()
> */
> TrackMouseEvent( ::Handle, TME_LEAVE )
>
> RETURN Super:WMMouseMove( nWParam, nLParam )
>
> METHOD WMMouseLeave( nWParam, nLParam ) CLASS TPanel
>
> LogDebug( "Y ahora fuera" )
>
> RETURN Nil
>
>
> Saludos,
> José Lalí­n
>

Caro José Lalí­n,
Obrigado mais uma vez. Funcionou perfeitamente...
Só tive que adicionar o evento "onMouseLeave"...
Obrigado
Reginaldo
"José Lalí­n" <dezac@corevia.com> escreveu na notí­cia da
mensagem:4e57ea92$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Reginaldo,
>
> hazlo así­:
>
> CLASS TPanel FROM XPanel
>
> RESERVED:
> METHOD WMMouseMove( nWParam, nLParam )
> METHOD WMMouseLeave( nWParam, nLParam )
>
> ENDCLASS
>
> METHOD WMMouseMove( nWParam, nLParam ) CLASS TPanel
>
> LogDebug( "Estamos dentro" )
> /* Esta funcion hace que al salir el puntero del
> ratón del área del panel se dispare WMMouseLeave()
> */
> TrackMouseEvent( ::Handle, TME_LEAVE )
>
> RETURN Super:WMMouseMove( nWParam, nLParam )
>
> METHOD WMMouseLeave( nWParam, nLParam ) CLASS TPanel
>
> LogDebug( "Y ahora fuera" )
>
> RETURN Nil
>
>
> Saludos,
> José Lalí­n
>

Reginaldo,
> Obrigado mais uma vez. Funcionou perfeitamente...
> Só tive que adicionar o evento "onMouseLeave"...
Un placer
Saludos,
José Lalí­n