01-16-2008, 06:48 AM
I can't get the tab key to traverse a web form using the SHDocVw.WebBrowser control.
I am using a nonmodal declaration :
The dialog :
I am using a nonmodal declaration :
str controls = "3"
str ax3SHD = ""
int hDlg = ShowDialog("kMain_Dlg" &kMain_Dlg &controls 0 1 WS_VISIBLE 0 0 -1 -1)
MessageLoop
The dialog :
;\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
;BEGIN DIALOG
;0 "" 0x90CF0A44 0x110 0 0 454 287 "K H E M U :::: Webmail"
;3 ActiveX 0x54000000 0x10 16 40 422 232 "SHDocVw.WebBrowser"
;1 Button 0x54030001 0x4 306 8 48 14 "OK"
;2 Button 0x54030000 0x4 368 8 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2020002 "" ""
ret
;messages
sel message
,case WM_INITDIALOG
,,MSHTML.HTMLDocument doc
,,doc=DT_GetHtmlDocument(hDlg 3)
,,doc.open("text/html")
,,;create html
,,str form.getmacro("login")
,,_s.format("%s\images\" CURDIR)
,,form.replacerx("QMIMAGEPATH/" _s)
,,doc.write(form) ;;variable number of arguments
,,out form
,,MSHTML.HTMLInputElement te=+doc.getElementById("user")
,,doc.focus
,,te.focus
,
,,MSHTML.HTMLInputElement- btn=+doc.getElementById("Login")
,,btn._setevents("btn_HTMLEvents")
,case WM_SIZE
,,kResizeMain(hDlg)
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1