Popup window open link

[win]

Hi

I have encountered a problem. In the previous postings, through the help of many enthusiastic friends, I can implement the IE browser control in the dialog box.

However, clicking on a web link from within the browser opens with a browser installed on the system, for example, Google Chrome...

I want to implement the following function

Let the link open from the popup window (do not open it from other browsers installed on the system). In addition, the popup window closes to close. When I close the main window, the popup window closes automatically.

I hope someone can help me with guidance. Thank you very much. Any suggestions and opinions are welcome.

Macro BS

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90CB0AC8 0x0 0 0 448 262 "bs"
;2 Button 0x54030000 0x4 376 236 48 14 "Cancel"
;1 Button 0x54030001 0x4 308 236 48 14 "OK"
;3 ActiveX 0x54030000 0x0 12 8 424 216 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""

str controls = "3"
str ax3SHD
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam
SHDocVw.WebBrowser we3
we3._getcontrol(id(3 hDlg))

sel message
,case WM_INITDIALOG
,;SHDocVw.WebBrowser we3
,;we3._getcontrol(id(3 hDlg))
,we3.Navigate("www.google.com")
,DT_SetAutoSizeControls(hDlg "3s 1m 2m")
,max hDlg
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1