delphi chromium 弹出窗口

如果您使用 Delphi 和 Chromium 组件库，您可以通过以下步骤来处理弹出窗口：

1. 在您的 TChromium 组件上注册 OnBeforePopup 事件。
2. 在 OnBeforePopup 事件处理程序中，将 e.Handled 属性设置为 True，这将阻止 Chromium 打开弹出窗口。
3. 创建一个新的 TChromium 组件并在弹出窗口事件处理程序中加载您想要打开的 URL。
4. 将新创建的 TChromium 组件添加到您的窗体中。

下面是一个示例代码，演示如何处理弹出窗口：

procedure TForm1.Chromium1BeforePopup(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
  userGesture: Boolean; const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
  var Result: Boolean);
var
  PopupChromium: TChromium;
begin
  Result := True; // 阻止 Chromium 打开弹出窗口

  // 创建新的 TChromium 组件
  PopupChromium := TChromium.Create(Self);
  PopupChromium.Parent := Self;
  PopupChromium.Align := alClient;
  PopupChromium.Name := 'PopupChromium';

  // 加载 URL
  PopupChromium.Load(targetUrl);

  // 显示窗口
  PopupChromium.Visible := True;
end;

请注意，在这个示例中，我们假设您已经在窗体上放置了一个 TChromium 组件，并且已经将 OnBeforePopup 事件注册到它上面。另外，您可能需要调整窗口的大小和位置来适应弹出窗口的内容。