当前位置：首页 > news >正文

【Delphi】如何解决使用webView2时主界面置顶，而导致网页选择文件对话框被覆盖问题

news 来源：原创 2025/5/20 0:18:17

一、问题描述：

在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);
begin

        if MessageHTML = 'fileDialogOpen' then
           begin
             Self.FormStyle := fsNormal;
             FH5OpenDialog := True;
           end;
    
end;

因为文件选择按键获取焦点的同时只要点击，就立即失去了焦点，所以没有解决问题，这就需要配合Delphi的TApplicationEvents控件中的OnActivate事件来共同处理。

注意

定义公用变量：FH5OpenDialog

procedure TBase_Form.ApplicationEvents1Activate(Sender: TObject);
begin
    if FH5OpenDialog then
       begin
         Self.FormStyle := fsStayOnTop;
         FH5OpenDialog := False;
       end;
end;