在 TWebBrowser 控件中执行javascript代码

最新推荐文章于 2023-04-27 08:48:03 发布

difan5495

最新推荐文章于 2023-04-27 08:48:03 发布

阅读量281

点赞数

文章标签： javascript java python ViewUI

原文链接：http://www.cnblogs.com/heimirror/archive/2010/10/16/1853033.html

版权

页面上包含 Jquery ，所以在delphi中定义的js代码是 jquery代码

procedure TFormLogin.Login();
var
 JSFun, newPw: string ;
begin
 newPw : = ' <input name=''pw'' id=''pw'' type=''text'' class=''input'' tabindex=''2'' maxlength=''16'' οnkeypress=''if(event.keyCode == 13){login();}'' autocomplete=''off'' value='' ' + edtPwd.Text + ' ''> ' ;
 try
 // JSFun : = ' login_tab_click(''nexon''); ' ; // 转到左侧
 JSFun : = ' login_tab_click(''dnf''); ' ; // 转到右侧
 htmlWindow.execScript(JSFun, ' JavaScript ' );
 JSFun : = ' $("#id").focus();$("#id").val(" ' + edtUName.Text + ' "); ' ;
 htmlWindow.execScript(JSFun, ' JavaScript ' );
 JSFun : = ' $("#pw").click();$("#pw").replaceWith(" ' + newPw + ' "); ' ;
 htmlWindow.execScript(JSFun, ' JavaScript ' );
 JSFun : = ' login(); ' ;
 htmlWindow.execScript(JSFun, ' JavaScript ' );
 except
 end ;
end ;

转载于:https://www.cnblogs.com/heimirror/archive/2010/10/16/1853033.html