Antonio,
Se podría integrar la clase tActivex en lugar del shellexecute a la clase URLLink?
Antonio Linares wrote:William,
URLink es un control ActiveX ?
METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TURLLink
LOCAL oActivex,oWnd
::nClrInit := ::nClrVisit
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:Do( "Navigate", ::cURL )
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
Return to Utilities / Utilidades
Users browsing this forum: No registered users and 16 guests