pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Block all popup windows and new tabs in all demos except the MiniBrowser

Browse Source 
- Added TChromium.IsSameBrowser function
This commit is contained in:
Salvador Díaz Fau
2018-02-16 18:41:13 +01:00
parent 1cbe18947e
commit 6905f9a292
64 changed files with 880 additions and 205 deletions
demos
CookieVisitor
uCookieVisitor.dfmuCookieVisitor.pas
CustomResourceBrowser
uMainForm.pas
DOMVisitor
uDOMVisitor.dfmuDOMVisitor.pas
ExternalPumpBrowser
uExternalPumpBrowser.dfmuExternalPumpBrowser.pas
FMXExternalPumpBrowser
uFMXExternalPumpBrowser.fmxuFMXExternalPumpBrowser.pas
FullScreenBrowser
uMainForm.dfmuMainForm.pas
Geolocation
uGeolocation.dfmuGeolocation.pas
JavaScript
JSDialog
uJSDialogBrowser.pas
JSEval
uJSEval.dfmuJSEval.pas
JSExecutingFunctions
uJSExecutingFunctions.dfmuJSExecutingFunctions.pas
JSExtension
uJSExtension.dfmuJSExtension.pas
JSExtensionWithFunction
uJSExtensionWithFunction.dfmuJSExtensionWithFunction.pas
JSExtensionWithObjectParameter
uJSExtensionWithObjectParameter.dfmuJSExtensionWithObjectParameter.pas
JSRTTIExtension
uJSRTTIExtension.dfmuJSRTTIExtension.pas
JSSimpleExtension
uJSSimpleExtension.dfmuJSSimpleExtension.pas
JSSimpleWindowBinding
uJSSimpleWindowBinding.dfmuJSSimpleWindowBinding.pas
JSWindowBindingSubProcess
uJSSimpleWindowBinding.dfmuJSSimpleWindowBinding.pas
JSWindowBindingWithFunction
uJSWindowBindingWithFunction.dfmuJSWindowBindingWithFunction.pas
JSWindowBindingWithObject
uJSWindowBindingWithObject.dfmuJSWindowBindingWithObject.pas
MDIBrowser
uChildForm.dfmuChildForm.pas
MDIExternalPumpBrowser
uChildForm.dfmuChildForm.pas
MiniBrowser
uMiniBrowser.pas
OSRExternalPumpBrowser
uOSRExternalPumpBrowser.dfmuOSRExternalPumpBrowser.pas
PostDataInspector
uPostDataInspector.dfmuPostDataInspector.pas
ResponseFilterBrowser
uResponseFilterBrowser.dfmuResponseFilterBrowser.pas
SchemeRegistrationBrowser
uSchemeRegistrationBrowser.dfmuSchemeRegistrationBrowser.pas
SimpleBrowser
uSimpleBrowser.pas
SimpleBrowser2
uSimpleBrowser2.dfmuSimpleBrowser2.pas
SimpleExternalPumpBrowser
uSimpleExternalPumpBrowser.pas
SimpleOSRBrowser
uSimpleOSRBrowser.dfmuSimpleOSRBrowser.pas
SubProcess
uSimpleBrowser.pas
TabbedBrowser
uMainForm.pas
ToolBoxBrowser
uChildForm.dfmuChildForm.pas
packages
CEF4Delphi_FMX.res
source
uCEFChromium.pasuCEFInterfaces.pasuCEFTask.pasuFMXChromium.pas

1
demos/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.dfm

@ -61,6 +61,7 @@ object JSWindowBindingWithFunctionFrm: TJSWindowBindingWithFunctionFrm
TabOrder = 1
end
object Chromium1: TChromium
OnBeforePopup = Chromium1BeforePopup
OnAfterCreated = Chromium1AfterCreated
Left = 32
Top = 224

19
demos/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas

@ -63,6 +63,13 @@ type
procedure GoBtnClick(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure Timer1Timer(Sender: TObject);
procedure Chromium1BeforePopup(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
targetFrameName: ustring;
targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean;
var popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
var client: ICefClient; var settings: TCefBrowserSettings;
var noJavascriptAccess: Boolean; out Result: Boolean);
protected
procedure BrowserCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@ -115,6 +122,18 @@ begin
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
end;
procedure TJSWindowBindingWithFunctionFrm.Chromium1BeforePopup(
Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame;
const targetUrl, targetFrameName: ustring;
targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean;
var popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
var client: ICefClient; var settings: TCefBrowserSettings;
var noJavascriptAccess: Boolean; out Result: Boolean);
begin
// For simplicity, this demo blocks all popup windows and new tabs
Result := (targetDisposition in [WOD_NEW_FOREGROUND_TAB, WOD_NEW_BACKGROUND_TAB, WOD_NEW_POPUP, WOD_NEW_WINDOW]);
end;
procedure TJSWindowBindingWithFunctionFrm.FormShow(Sender: TObject);
begin
// GlobalCEFApp.GlobalContextInitialized has to be TRUE before creating any browser