BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

procedure TForm1.Chromium1BrowserCompMsg(var aMessage: TMessage; var aHandled: Boolean);
var
  Handled: Boolean;
  url_to_open: string;
begin
  if (Chromium1 = nil) or (aMessage.MSG <> 528) OR (Handled = true) then
    exit;
  if (aMessage.MSG = 528)
    memo1.Lines.Add('Clicked on browser');
end;

Code: Select all

procedure TMiniBrowserFrm.Chromium1LoadingStateChange(Sender: TObject; const browser: ICefBrowser; isLoading, canGoBack, canGoForward: Boolean);
begin
  if not(Chromium1.IsSameBrowser(browser)) or FClosing then
    exit;

  if isLoading=False then
  begin
    Chromium1.browser.MainFrame.ExecuteJavaScript('document.body.addEventListener("mouseover", function(evt){' + 'function nodeToString ( node ) {  var tmpNode = document.createElement( "div" );tmpNode.appendChild( node.cloneNode( true ) );' +
      ' var str = tmpNode.outerHTML; tmpNode = node = null; return str;};function getpath(n){' + 'var ret = nodeToString(n);return ret};' + 'var element = evt.target;' + 'var tag = element.tagName.toLowerCase();' +
      'var id = element.id ? "#"+element.id:"";' + 'var classes = element.classList.toString().replace(/\s/, ".");' + 'var classes = classes ? "."+classes:"";' + 'var width = window.getComputedStyle(element).width;' +
      'var height = window.getComputedStyle(element).height;' + 'var return_str=tag+id+classes;' + 'myextension.mouseover(getpath(evt.target)+"["+return_str+"]")}' + ')', 'about:blank', 0);
  end;
end; 

Code: Select all

<div><div class="ui fluid button">Sign In</div></div>[div.ui.fluid button]

Code: Select all

procedure TMiniBrowserFrm.Chromium1BrowserCompMsg(var aMessage: TMessage; var aHandled: Boolean);
begin
  //dom_element - this is the variable where mouseover's DOM element is stored
  if (Chromium1 = nil) or (aMessage.Msg <> 528) OR (Handled = true) then
    exit;

  //This is my fix. If current DOM element is equal with previous DOM element - then do nothing
  if (prev_dom_element = dom_element) then
    exit;

  if (aMessage.Msg = 528) AND (Length(dom_element) < 300) AND (Length(trim(dom_element)) > 1) AND (pos('<', dom_element) > 0) then
  begin
    prev_dom_element := dom_element; 
    if (pos('[a#error_page_open_dns_help]', dom_element) > 0) then
    begin
      ShellExecute(Handle, 'open', pchar('https://1.1.1.1/'), nil, nil, SW_NORMAL);
    end;
   // And so on
  end;
end;