Antonio como fazer isso ?

[AOKISANTOS]

Antonio, chamando de um MENU, como fazer este código funcionar na windows principal ?


obj windows principal = ownd

DEFINE WINDOW oWndnet TITLE ".::"+alltrim(sis_1nom)+"::. "+alltrim(sis_1web)
oActiveX = TActiveX():New( oWndnet, "Shell.Explorer" )
oWndnet:oClient = oActiveX
IF EMPTY(sis_1web)
oActiveX:Do( "GoHome" )
else
oActiveX:Do( "Navigate", alltrim(sis_1web) )
endif
oActiveX:SetProp( "StatusBar", .t. )
ACTIVATE WINDOW oWndnet


tentei assim:

*******************
FUNCTION NETWND()
*******************
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX
oActiveX:Do( "GoHome" )
oActiveX:SetProp( "StatusBar", .t. )
return(.t.)


Porém, desse jeito a WINDOWS principal apresenta o navegador em um canto do video, não fica na tela inteira!

Aokisantos

[Antonio Linares]

Revisa el ejemplo samples/webexp.prg

[AOKISANTOS]

Antonio, trabalhando no meu sistema com a windows principal como navegador, as DIALOGS ficaram lentas e BTNGET não funciona, isso é normal ?



AOKISANTOS

[Antonio Linares]

Puedes proporcionar un PRG de ejemplo de cómo lo estás haciendo ? gracias,