我已经使用了两种方法来处理这个问题。(1) 您可以调用Set_AreBrowserAcceleratorKeysEnabled(0)来禁用浏览器的加速键(但这可能包括您不想要禁用的内容,而且这并不是您要求的) 。并且需要一些额外的工作来访问此接口,因为它没有包含在当前的TEdgeBrowser中。另外,我在某个地方读到,即使在EdgeBrowser中禁用了快捷键,加速键事件仍然会触发,所以如果您使用这种方法,您可以处理它们。(2) 使用AddScriptToExecuteOnDocumentCreated来注入一些Javascript代码,可以防止默认行为(如果需要)并向您的应用程序发送一条消息(您将在OnWebMessageReceived上接收该消息),以便您可以处理该事件。
选项1:
您需要定义以下内容以访问所需的接口,因为它们是在TEdgeBrowser之后引入的:
const
IID_ICoreWebview2Settings2: TGUID = '{EE9A0F68-F46C-4E32-AC23-EF8CAC224D2A}';
IID_ICoreWebview2Settings3: TGUID = '{FDB5AB74-AF33-4854-84F0-0A631DEB5EBA}';
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
;
end
else
;
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
;
Result := 1;
end));
注意,在选项2中,可以参考TEdgeBrowser代码作为定义回调的示例。它在TEdgeBrowser的实现部分中定义。我只是在我的表单单元的实现部分中复制了它。
ExecuteScript
(JS) 可以在浏览器中插入 JavaScript 并执行它。通过这种方式,您可以放置一个 EventListener。例如 不带括号的 <script> </script> (https://stackoverflow.com/questions/34241258/microsoft-edge-keydown-eventhttps://stackoverflow.com/questions/34241258/microsoft-edge-keydown-event) 描述了一个 KeyDown 的示例。您需要使用window.chrome.webview.postMessage
(Key) 将键值从 JavaScript 返回到 Delphi(这是理论)。为此,您必须在 Delphi 中连接 WebMessageReceived 事件。 - USauter