delphi - Delphi Chromium 组件中的 onBeforeBrowse 事件

Question

我正在尝试在带有 Chromium 组件（版本 306）的 Delphi XE2 中使用以下过程：

procedure TForm1.Chromium1BeforeBrowse(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; navType: TCefHandlerNavtype; isRedirect: Boolean;
  out Result: Boolean);

但它不起作用。Delphi 无法识别 onBeforeBrowse 事件。Chromium 似乎已正确安装，示例正在运行，我正在尝试在 GuiClient 示例中添加 onBeforeBrowse 事件处理... Delphi Chromium 组件中是否有该事件？

Answer 1

由于您已将问题描述为not working，请完成所有步骤：

• 步骤1 -Where to check or create event handler
• 第2步 -What happens when you don't have source paths configured
• 第 3 步 -How to configure paths to the Chromium library source code
• 第4步 -Don't forget to include the binaries into a project's visible place

Answer 2

是的..这个事件存在。您可以在 unit 中找到它的用法cefvcl。它的类型在cefgui,中声明TOnBeforeBrowse。

稍后我可能会删除我的答案..只是为了分享屏幕截图...

我打开 Demo 项目...双击事件 OnBeforeBrowse 并添加了showmessage你可以看到

关于屏幕截图..不要相信TEdit..我只更改本身的DefaultUrl属性TChromium;o）