我TEdgeBrowser在 Delphi 10.4.1 中使用。它運作良好。
唯一的嘮叨的問題是，當TEdgeBrowser具有焦點，它抓住F12和CTRL SHIFT C，并提出了OpenDevToolsWindow。這很棒，除了我想在加載之前更改 Form 的一些最頂層屬性（否則，DevTools 視窗將在 MainForm 后面）。
有沒有辦法F12從父 MainForm 中捕獲？我嘗試過 Application 和 MainForm 鍵捕獲，但都無法捕獲TEdgeBrowser鍵事件（當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 嗎？
uj5u.com熱心網友回復：
我使用了兩種方法來處理這個問題。(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 的實作部分定義的。我只是在我自己的表單的單元實作部分中復制了它。
uj5u.com熱心網友回復：
@stackman
我似乎無法使用推薦的解決方案，因為它需要更改頁面代碼。我想將 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;
控制臺 源
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/371182.html