Execute javascript code in the TWebBrowser Control

The page contains Jquery, so the js Code defined in delphi is jquery code.

 

Procedure TFormLogin. Login ();
Var
JSFun, newPw: string;
Begin
NewPw: = '<input name = ''pw ''id = ''pw'' type = ''text'' class = ''input ''tabindex = ''2' maxlength = '16''' onkeypress = ''if (event. keyCode = 13) {login ();} ''autocomplete = ''off'' value = ''' + edtPwd. text + '''> ';
Try
// JSFun: = 'login _ tab_click (''nexon'); '; // go to the left
JSFun: = 'login _ tab_click (''dnf ''); '; // go to the right
HtmlWindow.exe cScript (JSFun, 'javascript ');
JSFun: = '$ ("# id"). focus (); $ ("# id"). val ("' + edtUName. Text + '");';
HtmlWindow.exe cScript (JSFun, 'javascript ');
JSFun: = '$ ("# pw"). click (); $ ("# pw"). replaceWith ("' + newPw + '");';
HtmlWindow.exe cScript (JSFun, 'javascript ');
JSFun: = 'login ();';
HtmlWindow.exe cScript (JSFun, 'javascript ');
Except
End;
End;