FiveTech Support Forums

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

Revisa el ejemplo samples/webexp.prg

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

AOKISANTOS

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