我尝试在带有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组件中是否有该事件?
答案 0 :(得分:3)
由于您已经描述了无效等问题,请完成以下所有步骤:
答案 1 :(得分:1)
是..此事件存在。您可以在单位cefvcl
中找到它的用法。其类型在cefgui
,TOnBeforeBrowse
中声明。
我以后可能会删除我的答案..只是为了分享截图...
我打开演示项目...双击事件OnBeforeBrowse并添加showmessage
你可以看到
关于屏幕截图..不要相信TEdit
..我只更改DefaultUrl
本身的TChromium
属性; o)