Xailer & OZ Software

Necesito incluir información referente a un GroupBox pero no encuentro como.
¿Seria posible que un GroupBox tuviera la posibilidad de incluirle un
cToolTip que se visualizara al pasar el cursor por su titulo (cText)?
Moises Leon

Moises,
pon este código en un módulo de tu aplicación y donde necesites mostrar la
tooltip, le asignas el texto y andando.
oGroupbox:cTooltip := "Mi tooltip"
//---------------------------------------------------------- --------------------
#include "CommCtrl.api"
CLASS TGroupBox FROM XGroupBox
PUBLIC:
DATA cTooltip
DATA oTooltip
METHOD WMMouseMove( nWParam, nLParam )
METHOD WMMouseLeave()
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD WMMouseMove( nWParam, nLParam ) CLASS TGroupBox
IF ::oTooltip == Nil
::oTooltip := TBalloon():Create( Self )
::oTooltip:cText := ::cTooltip
ENDIF
::oTooltip:Show( LoWord( nLParam ), HiWord( nLParam ) )
TrackMouseEvent( Self:Handle, TME_LEAVE )
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD WMMouseLeave() CLASS TGroupBox
IF ! Empty( ::oTooltip )
::oTooltip:Destroy()
::oTooltip := Nil
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------
Saludos,
José Lalí­n

Listo José, muchas gracias por tu ayuda.
Moises Leon
"José Lalí­n" <dezac@corevia.com> escribió en el mensaje de noticias
news:4e364de9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Moises,
pon este código en un módulo de tu aplicación y donde necesites mostrar la
tooltip, le asignas el texto y andando.
oGroupbox:cTooltip := "Mi tooltip"
//---------------------------------------------------------- --------------------
#include "CommCtrl.api"
CLASS TGroupBox FROM XGroupBox
PUBLIC:
DATA cTooltip
DATA oTooltip
METHOD WMMouseMove( nWParam, nLParam )
METHOD WMMouseLeave()
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD WMMouseMove( nWParam, nLParam ) CLASS TGroupBox
IF ::oTooltip == Nil
::oTooltip := TBalloon():Create( Self )
::oTooltip:cText := ::cTooltip
ENDIF
::oTooltip:Show( LoWord( nLParam ), HiWord( nLParam ) )
TrackMouseEvent( Self:Handle, TME_LEAVE )
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD WMMouseLeave() CLASS TGroupBox
IF ! Empty( ::oTooltip )
::oTooltip:Destroy()
::oTooltip := Nil
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------
Saludos,
José Lalí­n