本文整理自网络，侵删。
本文介绍如何在Delphi XE6 FireMonkey移动应用程序中的TWebBrowser显示的HTML页面上执行JavaScript。
在此应用程序中，当按下按钮（TButton）时，浏览器（TWebBrowser）中显示的字符将重写为在输入字段（TEdit）中输入的字符。
将TWebBrowser，TEdit和TButton放在窗体上。创建表单时显示示例HTML。
在窗体的OnCreate事件中编写以下代码。
procedure TForm1.FormCreate(Sender: TObject);const HTML = '<!DOCTYPE html><html lang="ja"><head><meta charset="utf-8"></head><body><span id="test">Hello</span></body></html>';begin WebBrowser1.LoadFromStrings(HTML, '');end;TWebBrowser的LoadFromStrings将参数的HTML字符串显示为TWebBrowser的内容。
在按钮的OnClick事件中编写以下代码。
procedure TForm1.Button1Click(Sender: TObject);var JavaScript: string;begin JavaScript := Format('document.getElementById(''test'').innerHTML = %s;',[AnsiQuotedStr(Edit1.Text, '''')]); WebBrowser1.EvaluateJavaScript(JavaScript);end;TWebBrowser的EvaluateJavaScript方法执行JavaScript参数。
在上面的代码中，按按钮可以更改JavaScript中的HTML。
相关阅读 >>
Delphi 中 findwindow 和 findwindowex 的语法和用法
更多相关阅读请进入《Delphi》频道 >>
