URLLink
Posted: Tue Mar 21, 2006 8:22 pm
Antonio,
Se podría integrar la clase tActivex en lugar del shellexecute a la clase URLLink?
Se podría integrar la clase tActivex en lugar del shellexecute a la clase URLLink?
Estimado Antonio,Antonio Linares wrote:William,
URLink es un control ActiveX ?
Code: Select all
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
//----------------------------------------------------------------------------//