TLama

Untitled

Jan 29th, 2014
401
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.56 KB | None | 0 0
  1. uses
  2.   ceflib;
  3.  
  4. procedure TForm1.ChromiumBeforePopup(Sender: TObject; const browser: ICefBrowser;
  5.   const frame: ICefFrame; const targetUrl, targetFrameName: ustring;
  6.   var popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo; var client: ICefClient;
  7.   var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean; out Result: Boolean);
  8. begin
  9.   // returning True to the Result will stop creation of the popup window; you can make a
  10.   // filter just for certain URLs, like e.g. if targetUrl = 'http://example.com' then
  11.   Result := True;
  12. end;
Advertisement
Add Comment
Please, Sign In to add comment