delphi 使用 TEdgeBrowser 组件

使用 TEdgeBrowser 组件

仅供有兴趣的朋友们参考，步骤有点小复杂。

1、下载 nuget。 https://dist.nuget.org/win-x86-commandline/latest/nuget.exe

2、在命令行执行：nuget install Microsoft.Web.WebView2

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

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

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

procedure TForm1.EdgeBrowser1CreateWebViewCompleted(Sender: TCustomEdgeBrowser;

  AResult: HRESULT);

begin

OleCheck(AResult);

EdgeBrowser1.StatusBarEnabled:=true;

EdgeBrowser1.ZoomControlEnabled:=true;

EdgeBrowser1.BuiltInErrorPageEnabled:=true;

EdgeBrowser1.DefaultContextMenusEnabled:=true;

end;