delphi 如何将TEdgebrowser弹出窗口重定向到我自己的表单？

4nkexdtk 于 12个月前发布在其他

关注(0)|答案(2)|浏览(227)

通过TEdgeBrowser.OnNewWindowRequested事件，我显然可以知道一个新窗口即将打开，但是我如何使用第二个TEdgeBrowser组件将输出捕获到我自己的自定义TForm？

2条答案

TEdgeBrowser.OnNewWindowRequested事件处理程序有一个名为Args的TNewWindowRequestedEventArgs类型的参数，它实现了Edge的ICoreWebView2NewWindowRequestedEventArgs接口。你可以调用它的put_NewWindow()方法，为它提供所需浏览器窗口的ICoreWebView2接口，你可以从TEdgeBrowser.DefaultInterface属性中获取。

在事件“EdgeBrowser1 WebViewCompleted”上执行以下操作。

Var s:ICoreWebView2Settings;
begin
  Sender.DefaultInterface.Get_Settings(s);
  s.Set_AreDefaultContextMenusEnabled(0);
end;

字符串