【Delphi】如何解决使用webView2时主界面置顶，而导致网页选择文件对话框被覆盖问题
一、问题描述：
在Delphi 中使用WebView2控件，如果预先把主界面置顶（Self.FormStyle := fsStayOnTop;），此时，如果在Web页面中有使用（<input type="file" id="fileInput" accept=".txt, .pdf, .doc, .docx" required> ）选择文件，这样就会导致选择文件的对话框被覆盖，从而无法操作。
二、解决方案
由于WebView2通过H5打开文件选择窗口时，Delphi无法直接获取到事件通知，因为文件选择时由浏览器进程管理的，所以需要使用一些技巧来解决。
使用javascript监听文件选择事件：
可以通过在 WebView2 中注入 JavaScript 代码来监听文件选择窗口的打开和关闭事件，然后通过 WebView2 的事件机制将这些事件传递到 Delphi 端。
操作步骤：
- 注入 JavaScript 代码：在页面加载完成后，注入 JavaScript 代码来监听文件选择窗口的打开和关闭事件。
- 通过 WebMessage 传递事件：将事件通过 `window.chrome.webview.postMessage` 传递到 Delphi 端。
- 在 Delphi 中处理事件：在 Delphi 中监听 WebView2 的 `WebMessageReceived` 事件，并根据接收到的消息调整主窗体的置顶状态。
示例代码：
JavaScript 代码：
document.addEventListener('focus', function(event) {if (event.target.tagName === 'INPUT' && event.target.type === 'file') {window.chrome.webview.postMessage('fileDialogOpen');}
}, true);document.addEventListener('blur', function(event) {if (event.target.tagName === 'INPUT' && event.target.type === 'file') {window.chrome.webview.postMessage('fileDialogClose');}
}, true);Delphi 代码：
procedure TForm1.WebView2NavigationCompleted(ASender: TObject; const Args: ICoreWebView2NavigationCompletedEventArgs);
begin// 注入 JavaScript 代码WebView2.ExecuteScript('document.addEventListener(''click'', function(event) {' +' if (event.target.tagName === ''INPUT'' && event.target.type === ''file'') {' +' window.chrome.webview.postMessage(''fileDialogOpen'');' +' }' +'}, true);',nil);
end;procedure TBase_Form.WebViewWebMessageReceived(Sender: TObject; const Source,MessageHTML, Json: WString);
beginif MessageHTML = 'fileDialogOpen' thenbeginSelf.FormStyle := fsNormal;FH5OpenDialog := True;end;end;
因为文件选择按键获取焦点的同时只要点击，就立即失去了焦点，所以没有解决问题，这就需要配合Delphi的TApplicationEvents控件中的OnActivate事件来共同处理。
注意
定义公用变量：FH5OpenDialog
procedure TBase_Form.ApplicationEvents1Activate(Sender: TObject);
beginif FH5OpenDialog thenbeginSelf.FormStyle := fsStayOnTop;FH5OpenDialog := False;end;
end;