[教程]使用 TEdgeBrowser 组件

Posted 2021-05-14 marklove

转载 http://blog.qdac.cc/?p=5293
仅供有兴趣的朋友们参考，步骤有点小复杂。

1、下载 nuget。

2、在命令行执行：.\\nuget install Microsoft.Web.WebView2 -version 1.0.664.37
1.0.818.41 不指定版本会下载最新的。。

3、从微软官方下载 Webview 2 运行时。

4、在 nuget 目录下，搜索对应架构的 webview2loader.dll 并复制到你程序目录下，然后运行你编译好的程序就可以并

【注意】响应 OnCreateWebViewCompleted 事件，来确定下浏览器是否成功加载。然后一些额外依赖于WebView实例化的初始化代码，也要放在这个事件中处理，如：

C:\\Users\\Public\\Documents\\Embarcadero\\Studio\\21.0\\Samples\\Object Pascal\\VCL\\WebBrowser\\Edge
or
procedure TForm1.EdgeBrowser1CreateWebViewCompleted(Sender: TCustomEdgeBrowser;
  AResult: HRESULT);
begin
OleCheck(AResult);
EdgeBrowser1.StatusBarEnabled:=true;
EdgeBrowser1.ZoomControlEnabled:=true;
EdgeBrowser1.BuiltInErrorPageEnabled:=true;
EdgeBrowser1.DefaultContextMenusEnabled:=true;
end;