本文整理自网络,侵删。
本文介绍如何在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 xe2 - 万一“获取程序自身大小的函数”改进版
Delphi hbp-1100u 欧姆龙血压计的usb调用方法
Delphi 中的哈希表: thashedstringlist
更多相关阅读请进入《Delphi》频道 >>