Delphi Chromium组件中的onBeforeBrowse事件

时间:2012-05-17 19:47:00

标签: delphi delphi-xe2 tchromium

我尝试在带有Chromium组件的Delphi XE2中使用以下过程(版本306):

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

但它没有用。德尔福并不认识onBeforeBrowse事件。 Chromium似乎安装正确,样品正常工作,我试图在GuiClient示例中添加onBeforeBrowse事件处理... Delphi Chromium组件中是否有该事件?

2 个答案:

答案 0 :(得分:3)

答案 1 :(得分:1)

是..此事件存在。您可以在单位cefvcl中找到它的用法。其类型在cefguiTOnBeforeBrowse中声明。

enter image description here

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

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

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