WebView4Delphi - Delphi浏览器组件(Edge) （1）

类似DCEF的浏览器组件 WebView4Delphi

github: https://github.com/salvadordf/WebView4Delphi

单元文件初始化时：

  GlobalWebView2Loader := TWVLoader.Create(nil);
  GlobalWebView2Loader.UserDataFolder := ExtractFileDir(Application.ExeName) + '\CustomCache';
  GlobalWebView2Loader.StartWebView2;

也可直接在工程初始化时：

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  GlobalWebView2Loader := TWVLoader.Create(nil);
  GlobalWebView2Loader.UserDataFolder := ExtractFileDir(Application.ExeName) + '\CustomCache';
  GlobalWebView2Loader.StartWebView2;

  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

窗体上加入相应组件：

        TWVWindowParent 用于显示  

        TWVBrowser  浏览器组件

设置 TWVWindowParent 的 Browser 属性为 TWVBrowser 组件

窗体初始化时

procedure TForm1.FormShow(Sender: TObject);
begin
  WVBrowser1.CreateBrowser(WVWindowParent1.Handle);
end;

TWVBrowser的AfterCreated事件添加代码

procedure TForm1.WVBrowser1AfterCreated(Sender: TObject);
begin
  WVWindowParent1.UpdateSize;
end;

最简单的浏览器就完成了

简单控制：

WVBrowser1.Navigate(edt_url.Text);          打开链接

WVBrowser1.Refresh;                                重新打开现有链接

WVBrowser1.GoBack;                                退回上一页

WVBrowser1.GoForward;                           前进

WVBrowser1.ToggleMuteState;                  切换静音状态

WVBrowser1.IsMuted;                                获取静音状态