TEdgeBrowser для Delphi 10.4.1 и более поздних версий: как перехватить F12 (OpenDevToolsWindow)?

Question

Я использую в Delphi 10.4.1. Это работает очень хорошо.

Единственная назойливая проблема заключается в том, что когда он получает фокус, он захватывает F12и CTRL+SHIFT+Cпредставляет OpenDevToolsWindow. Это здорово, за исключением того, что я хочу изменить некоторые из самых верхних свойств формы перед ее загрузкой (иначе окно DevTools будет позади MainForm).

Есть ли способ ловушки F12из родительской MainForm? Я пробовал захватывать ключи Application и MainForm, но оба не смогли зафиксировать ключевые события (когда TEdgeBrowserимеет фокус).

      procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.Message of
    WM_KEYDOWN, WM_KEYUP:
      begin
      if Msg.WParam = VK_F11 then
         begin
         SetStatusLog(EID_KEYPRESS,'F11');
         Handled := true;
         end
      else if Msg.WParam = VK_F12 then
         begin
{ do something here and consider F12 handled, preventing F12 from going to TEdgeBrowser???}
         SetStatusLog(EID_KEYPRESS,'F12');
         Handled := true;
         end;
      end;
  end;
end;

Есть ли другой способ справиться с этим?

Кроме того, могу ли я запускать OpenDevToolsWindow программно?

Answer 1

Я использовал два способа справиться с этим. (1) Вы можете вызвать Set_AreBrowserAcceleratorKeysEnabled(0), чтобы отключить клавиши быстрого доступа браузера (но это может включать в себя отключение большего, чем вы хотите, и это не совсем то, что вы просили). И для получения доступа к этому интерфейсу требуется дополнительная работа, поскольку он не включен в текущий TEdgeBrowser. Кроме того, я где-то читал, что событие AcceleratorKey все еще срабатывает, даже если вы отключите их в EdgeBrowser, поэтому, если вы используете этот подход, вы можете их обработать. (2) Используйте AddScriptToExecuteOnDocumentCreated, чтобы внедрить некоторый Javascript, который может предотвратить поведение по умолчанию (при желании) и отправить вашему приложению сообщение (которое вы получите на OnWebMessageReceived), чтобы вы могли обработать событие.

Опция 1:

Вам нужно будет определить следующее, чтобы получить доступ к нужным вам интерфейсам, поскольку они были введены после того, что есть в TEdgeBrowser:

      const
  IID_ICoreWebview2Settings2: TGUID = '{EE9A0F68-F46C-4E32-AC23-EF8CAC224D2A}'; //Introduced: SDK  1.0.864.35
  IID_ICoreWebview2Settings3: TGUID = '{FDB5AB74-AF33-4854-84F0-0A631DEB5EBA}'; //Introduced: SDK  1.0.864.35

type
  ICoreWebView2Settings2 = interface(ICoreWebView2Settings)
    ['{EE9A0F68-F46C-4E32-AC23-EF8CAC224D2A}']
    function Get_UserAgent(out UserAgent: PWideChar): HResult; stdcall;
    function Set_UserAgent(UserAgent: PWideChar): HResult; stdcall;
  end;

  ICoreWebView2Settings3 = interface(ICoreWebView2Settings2)
    ['{FDB5AB74-AF33-4854-84F0-0A631DEB5EBA}']
    function Get_AreBrowserAcceleratorKeysEnabled(out AreBrowserAcceleratorKeysEnabled: Integer): HResult; stdcall;
    function Set_AreBrowserAcceleratorKeysEnabled(AreBrowserAcceleratorKeysEnabled: Integer): HResult; stdcall;
  end;

Затем в вашем событии OnCreateWebViewCompleted вы можете сделать

      var
  Settings3: ICoreWebView2Settings3;
  HR: HRESULT;
begin
  Sender.SettingsInterface.QueryInterface(IID_ICoreWebView2Settings3, Settings3);
  if Assigned(Settings3) then
  begin
    HR := Settings3.Set_AreBrowserAcceleratorKeysEnabled(0);
    if not SUCCEEDED(HR) then
      {Do something - Set_AreBrowserAcceleratorKeysEnabled failed};
  end
  else
    {Do something - ICoreWebView2Settings3 interface not found.};
  end;  

Вариант 2:

В вашем событии OnCreateWebViewCompleted вы можете сделать следующее

      const
  JavaScript =
    '  document.addEventListener(''keydown'', function(event){' + sLineBreak +
    '    if (event.code == "F12") {' + sLineBreak +
    '      Result = "#KEY_EVENT#" + event.code;' + sLineBreak +
    '      event.preventDefault();' + sLineBreak +
    '      window.chrome.webview.postMessage(Result);' + sLineBreak +
    '    };' + sLineBreak +
    '  });'; 

{...}                                                                       
begin
  Sender.DefaultInterface.AddScriptToExecuteOnDocumentCreated(JavaScript,
    Callback<HResult, PChar>.CreateAs<ICoreWebView2AddScriptToExecuteOnDocumentCreatedCompletedHandler>(
    function(ErrorCode: HResult; Id: PWideChar): HResult stdcall
    begin
      if not(Succeeded(ErrorCode)) then
        {Do something if this function failed.  It gets called later when a document id created.  Or you can pass nil for the Callback};
      Result := 1;
    end));

Обратите внимание, что в Варианте 2 см. код TEdgeBrowser в качестве примера для определения обратного вызова. Он определен в части реализации TEdgeBrowser. Я просто воспроизвел это в разделе реализации модуля моей собственной формы.

Answer 2

Вы можете использовать ASender.DevToolsEnabled := False;в OnCreateWebViewCompletedмероприятие

Answer 3

@стекман

Я не могу использовать рекомендуемое решение, потому что оно требует изменений в коде страницы. Я хотел бы указать EdgeBrowser на любой сайт и по-прежнему контролировать нажатие клавиш.

      procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const
  STEP: integer = 1;
var
 Js: string;
begin
  case STEP of
    1: web.CreateWebView;
    2: web.Navigate('https://stackoverflow.com/questions/70089520/tedgebrowser-for-delphi-10-4-1-and-later-how-to-trap-f12-opendevtoolswindow?noredirect=1#comment123929534_70089520');
    3: begin //Step 2 must have finished!
         Js := Concat('aaa = new Object; ',
                      'aaa.Message = function(Msg) ',
                      '{ ',
                      '   alert(Msg); ',
                      '}');
                      //DevTools-->Console: type aaa
                      web.ExecuteScript(Js);

        end;
     else
        begin
          Js := 'aaa.Message("Hallo Welt!")';
          web.ExecuteScript(Js);
        end;
   end;
   STEP := STEP + 1;
 end;

консолиИсточник