BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

program Cef4Bug;

uses
  Forms,
  uCEFApplication,
  uCEFTypes,
  uCEFInterfaces,
  uCEFv8Value,
  uCEFConstants,
  Main in 'Main.pas' {Form1};

{$R *.res}

procedure OnRenderProcessMessageReceived(const pBrowser: ICefBrowser; uSourceProcess: TCefProcessId;
  const pMessage: ICefProcessMessage; var aHandled : boolean);
begin

end;

begin
  GlobalCEFApp := TCefApplication.Create;
  GlobalCEFApp.OnProcessMessageReceived := OnRenderProcessMessageReceived;

  if GlobalCEFApp.StartMainProcess then
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    Application.Run;
  end;

  GlobalCEFApp.Free;
end.

Code: Select all

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uCEFChromium,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Chromium1: TChromium;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chromium1 := TChromium.Create(Self);
  Chromium1.DefaultUrl := 'https://google.com/';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Chromium1.CreateBrowser(Self);
end;

end.

Code: Select all

GlobalCEFApp.OnProcessMessageReceived := OnRenderProcessMessageReceived;