METHOD MouseMove
.../...
// 聽 聽 聽 聽 聽 聽 聽 ::CheckToolTip( nRow, nCol ) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // Sustituir por
// Add this
聽 聽 聽 if ::oBtn != nil
聽 聽 聽 聽 聽if IsOverWnd( ::oBtn:hWnd, nRow, nCol )
聽 聽 聽 聽 聽 聽 if !Empty( ::oBtn:cToolTip )
聽 聽 聽 聽 聽 聽 聽 聽::oBtn:CheckToolTip( nRow, nCol )
聽 聽 聽 聽 聽 聽 else
聽 聽 聽 聽 聽 聽 聽 聽::CheckToolTip( nRow, nCol ) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // Modify
聽 聽 聽 聽 聽 聽 endif
聽 聽 聽 聽 聽else
聽 聽 聽 聽 聽 聽 ::CheckToolTip( nRow, nCol ) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // Modify
聽 聽 聽 聽 聽endif
聽 聽 聽 else
聽 聽 聽 聽 聽::CheckToolTip( nRow, nCol ) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // Modify
聽 聽 聽 endif
.../...
Como se aplica
.../...
聽 聽@ 10, 10 GET oGet VAR cVar ACTION ( MsgInfo( "Hola" ) )
聽 聽oGet:cTooltip := "TOOLTIP GET" 聽 //o tambien // { "FiveTech Soft Get ", "MyToolTip", 3,CLR_WHITE,CLR_HBLUE }
聽 聽oGet:oBtn:cTooltip := "TOOLTIP BOTON" 聽 // o tambien //{ "FiveTech Soft Boton ", "MyToolTip", 3,CLR_WHITE,CLR_HBLUE }
.../...