BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Chromium1.Initialized then
  begin
    Chromium1.WasHidden(False);
    Chromium1.SendFocusEvent(True);
    Chromium1.LoadURL(edUrl.Text);
  end
  else
  begin
    Chromium1.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF);
    Chromium1.DefaultURL              := edUrl.Text;
    Chromium1.CreateBrowser(nil, '');
  end;
end;

Code: Select all

procedure TForm1.Chromium1LoadingStateChange(Sender: TObject;
  const browser: ICefBrowser; isLoading, canGoBack, canGoForward: Boolean);
begin

  if isLoading then
    begin
      StatusBar1.Panels[1].Text := 'Loading...';
      Memo1.Lines.Add('Loading...');
    end
   else
    begin
      StatusBar1.Panels[1].Text := 'Finished';
      Memo1.Lines.Add('Finished');
    end;
end;

Code: Select all

  ///
  // Called when the loading state has changed. This callback will be executed
  // twice -- once when loading is initiated either programmatically or by user
  // action, and once when loading is terminated due to completion, cancellation
  // of failure. It will be called before any calls to OnLoadStart and after all
  // calls to OnLoadError and/or OnLoadEnd.
  ///