procedureTForm1.Button1Click(Sender: TObject); begin (WebBrowser1.DocumentasIHTMLDocument2).parentWindow.execScript('alert("hello");','javascript') end;
2、用WebBrowser的Navigate()方法更简单:
procedureTForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('javascript:alert("hello");') end;