需求
使用 Delphi VCL 开发的程序，Form 上面放一个 TEdgeBrowser 用来呈现 HTML 页面。用户在页面里面点击了某个元素，Delphi 程序需要能够响应。
实现方法
首先是简单的测试页面代码，页面里面使用一个 JavaScript 来响应用户点击并向 Delphi 程序发送消息，页面代码如下：
<!DOCTYPE html>
<html>
<body>
<p onclick="handleClick()">Click me</p>
<script>
function handleClick() {
window.chrome.webview.postMessage({data: 'Message from Edge Chromium 哈哈', url: window.document.URL });
}
</script>
</body>
</html> 把这个页面保存为文件：test.html，方便 Delphi 程序加载页面。
把这个 test.html 程序放到 Delphi 程序的 EXE 目录下。
加载页面到 TEdgeBrowser 的Delphi 程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
EdgeBrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'test.html');
end;执行上述代码后，可以看到页面出来了，就显示了一行字：Click me
最低0.47元/天 解锁文章
扫一扫
622
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
