pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +02:00
Code Issues Actions Releases Activity

Added timers to create the browsers only when GlobalCEFApp.GlobalContextInitialized is TRUE

Browse Source
This commit is contained in:
Salvador Díaz Fau
2017-11-04 18:32:29 +01:00
parent 92c167a1da
commit d138e98ecb
23 changed files with 220 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
demos/CustomResourceBrowser/uMainForm.pas
View File

@@ -57,9 +57,11 @@ type
AddressBarPnl: TPanel;
Edit1: TEdit;
Button1: TButton;
Timer1: TTimer;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@@ -92,7 +94,16 @@ procedure TMainForm.FormShow(Sender: TObject);
begin
ChromiumWindow1.OnAfterCreated := Chromium_OnAfterCreated;
ChromiumWindow1.ChromiumBrowser.OnGetResourceHandler := Chromium_OnGetResourceHandler;
ChromiumWindow1.CreateBrowser;
// GlobalCEFApp.GlobalContextInitialized has to be TRUE before creating any browser
// If it's not initialized yet, we use a simple timer to create the browser later.
if not(ChromiumWindow1.CreateBrowser) then Timer1.Enabled := True;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
if not(ChromiumWindow1.CreateBrowser) then Timer1.Enabled := True;
end;
procedure TMainForm.Chromium_OnAfterCreated(Sender: TObject);