Delphi WebBrowser[13] 网页中插入自定义JavaScript

Delphi WebBrowser[13] 网页中插入自定义JavaScript

?

1 2 3 4 5 6 7 8 9 10

var   i:integer;   h:IHTMLHeaderElement;   o:OleVariant; begin   o:=webbrowser1.OleObject.document.createElement('script');    //定义元素   o.type:='text/javascript';   //定义js类型   o.text:='var a=1;alert("Delphi 你好！数量："+a);';   //自定义js内容   WebBrowser1.OleObject.document.getElementsByTagName('head').item(0).appendChild(o); end;

　　

 

 

创建时间：2020.11.24　　更新时间：