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

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

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　　更新时间：