在delphi XE6 FireMonkey移动应用程序的TWebBrowser HTML页面上运行JavaScript

本文介绍如何在Delphi XE6 FireMonkey移动应用程序中的TWebBrowser显示的HTML页面上执行JavaScript。

在此应用程序中，当按下按钮（TButton）时，浏览器（TWebBrowser）中显示的字符将重写为在输入字段（TEdit）中输入的字符。

将TWebBrowser，TEdit和TButton放在窗体上。

创建表单时显示示例HTML。

在窗体的OnCreate事件中编写以下代码。

procedure TForm1.FormCreate(Sender: TObject);

const

HTML = 'Hello';

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。

推荐分享