BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

protected
    FCanClose        : boolean;
    FClosing         : boolean;

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  FCanClose       := False;
  FClosing        := False;
end;

Code: Select all

procedure TForm1.chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
  PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
end;

Code: Select all

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FCanClose;
  if not(FClosing) then
    begin
      FClosing := True;
      Visible  := False;
      chrmosr.CloseBrowser(True);
    end;
end;

Code: Select all

procedure TForm1.chrmosrBeforeClose(Sender: TObject; const browser: ICefBrowser);
begin
  FCanClose := True;
  PostMessage(Handle, WM_CLOSE, 0, 0);
end;

Code: Select all

// This is the destruction sequence in OSR mode :
// 1- FormCloseQuery sets CanClose to the initial FCanClose value (False) and calls chrmosr.CloseBrowser(True).
// 2- chrmosr.CloseBrowser(True) will trigger chrmosr.OnClose and we have to
//    set "Result" to false and CEF3 will destroy the internal browser immediately.
// 3- chrmosr.OnBeforeClose is triggered because the internal browser was destroyed.
//    Now we set FCanClose to True and send WM_CLOSE to the form.

Code: Select all

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FCanClose1 and FCanClose2;
  if not(FClosing) then
    begin
      FClosing := True;
      Visible  := False;
      Chromium1.CloseBrowser(True);
      Chromium2.CloseBrowser(True);
    end;
end;

Code: Select all

procedure TForm1.Chromium1BeforeClose(Sender: TObject;
  const browser: ICefBrowser);
begin
  FCanClose1 := True;
  if FCanClose1 and FCanClose2 then PostMessage(Handle, WM_CLOSE, 0, 0);
end;

Code: Select all

procedure TForm1.Chromium2BeforeClose(Sender: TObject;
  const browser: ICefBrowser);
begin
  FCanClose2 := True;
  if FCanClose1 and FCanClose2 then PostMessage(Handle, WM_CLOSE, 0, 0);
end;

Code: Select all

  FCanClose1 := True;
  if FCanClose1 and FCanClose2 then PostMessage(Handle, WM_CLOSE, 0, 0);

Code: Select all

  FCanClose2 := True;
  if FCanClose1 and FCanClose2 then PostMessage(Handle, WM_CLOSE, 0, 0);

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uCEFChromium, Vcl.ExtCtrls, uCEFApplication,
  uCEFTypes, uCEFInterfaces, uCEFConstants, uBufferPanel,
  uCEFWindowParent, uCefRequest, uCEFStringMultimap,uCEFPostData, uCEFMiscFunctions;

type
  TForm1 = class(TForm)
    Chromium1: TChromium;
    Chromium2: TChromium;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Chromium1AfterCreated(Sender: TObject;
      const browser: ICefBrowser);
    procedure Chromium2AfterCreated(Sender: TObject;
      const browser: ICefBrowser);
    procedure Chromium2BeforeClose(Sender: TObject; const browser: ICefBrowser);
    procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private declarations }
  public
    cr1, cr2, FCanClose1, FCanClose2, FClosing : boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Chromium1AfterCreated(Sender: TObject;
  const browser: ICefBrowser);
begin
  CR1:=true;
  if CR1 and CR2 then
  begin
    CR1:=False;
    CR2:=False;
    PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
  end;
end;

procedure TForm1.Chromium1BeforeClose(Sender: TObject;
  const browser: ICefBrowser);
begin
  FCanClose1 := True;
  if FCanClose1 and FCanClose2 then PostMessage(Handle, CEF_DESTROY, 0, 0);
end;

procedure TForm1.Chromium2AfterCreated(Sender: TObject;
  const browser: ICefBrowser);
begin
  CR2:=true;
  if CR1 and CR2 then
  begin
    CR1:=False;
    CR2:=False;
    PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
  end;
end;

procedure TForm1.Chromium2BeforeClose(Sender: TObject;
  const browser: ICefBrowser);
begin
  FCanClose2 := True;
  if FCanClose1 and FCanClose2 then PostMessage(Handle, CEF_DESTROY, 0, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  GlobalCEFApp.Destroy;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FCanClose1 and FCanClose2;
  if not(FClosing) then
    begin
      FClosing := True;
      Visible  := False;
      Chromium1.CloseBrowser(True);
      Chromium2.CloseBrowser(True);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FCanClose1:= False;
  FCanClose2:= False;
  FClosing := False;
  CR1:=False;
  CR2:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Chromium1.CreateBrowser(nil, '');
  if not(Chromium1.Initialized) then Timer1.Enabled := True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Timer2.Enabled := False;
  Chromium2.CreateBrowser(nil, '');
  if not(Chromium2.Initialized) then Timer2.Enabled := True;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  Timer3.Enabled:=false;
  Chromium1.LoadURL('https://google.com');
  Chromium2.LoadURL('https://google.com');

end;

end.