anchor.diff:      Exit;
     end;
   
  -  InterlockedExchange(FBlockAllowSetFocus, 1);
     cef.LoadURL(FNextURL);
   end;
   
  
positive.code: procedure TframeCEFHost.cefSetFocus(Sender: TObject; const browser: ICefBrowser;
    source: TCefFocusSource; out Result: Boolean);
  begin
    Result := Boolean(InterlockedExchange(FBlockAllowSetFocus, 0));
  end;
  
  procedure TframeCEFHost.WMEnterMenuLoop(var aMessage: TMessage);
  
negative.code:     procedure cefSetFocus(Sender: TObject; const browser: ICefBrowser;
        source: TCefFocusSource; out Result: Boolean);
    private
      FApplicationHandle: THandle;
      FNextURL: string;
      FOnLoadEnd: TNotifyEvent;
  