Delphi12中TEdgeBrowser的OnWebMessageReceived响应过慢，求替代点击捕获方案

问题根源 #

你当前的方案通过window.chrome.webview.postMessage将点击事件传递给Delphi主进程，再由Delphi调用ExecuteScript修改DOM，这中间涉及WebView进程与Delphi主进程的跨进程通信，存在不可控的调度延迟，导致DOM修改赶在页面跳转前完成的概率极低。

核心解决方案 #

将页面跳转前必须完成的DOM修改逻辑直接放在JS的点击事件同步执行流程中，避免跨进程通信的延迟。

方案1：纯JS内完成DOM修改（无需通知Delphi） #

如果不需要将点击事件信息传递给Delphi，直接在JS点击回调里同步修改DOM，这一步是立即执行的，优先级高于页面跳转逻辑：

procedure TForm1.FormCreate(Sender: TObject);
begin
  edgebrowser1.ExecuteScript(
   'function eventClick(e){' +
   'e = e || window.event;' +
   // 同步修改DOM，立即生效
   'document.getElementById("stock").innerText = "22";' +
   // 若点击元素会触发页面跳转，可先阻止默认行为，修改后再手动跳转
   // e.preventDefault();
   // setTimeout(() => { window.location.href = e.target.href; }, 0);
   '};');
   
  edgebrowser1.ExecuteScript('window.addEventListener("click",eventClick,{once:true})');
end;

方案2：需通知Delphi但优先保证DOM修改 #

如果必须将点击信息传递给Delphi处理，先在JS里完成DOM修改，再发送消息给Delphi，确保DOM修改已同步生效：

procedure TForm1.EdgeBrowser1WebMessageReceived(Sender: TCustomEdgeBrowser; Args: TWebMessageReceivedEventArgs);
begin
  // 此处处理Delphi侧的逻辑（如日志记录、本地数据更新等）
  // 无需再修改DOM，JS已完成同步修改
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edgebrowser1.ExecuteScript(
   'function eventClick(e){' +
   'e = e || window.event;' +
   // 第一步：同步修改DOM，立即完成
   'document.getElementById("stock").innerText = "22";' +
   // 第二步：再发送消息给Delphi，此时DOM已修改完成
   'var target = e.target || e.srcElement;' +
   'var text = target.textContent || target.innerText;'+
   'window.chrome.webview.postMessage(target.outerHTML);' +
   // 按需处理跳转逻辑
   // e.preventDefault();
   // setTimeout(() => { window.location.href = target.href; }, 0);
   '};');
   
  edgebrowser1.ExecuteScript('window.addEventListener("click",eventClick,{once:true})');
end;

关键说明 #

跨进程通信的延迟是进程调度机制导致的，无法完全消除。因此所有需要在页面跳转前生效的DOM操作，都必须放在WebView进程内的JS同步执行流程中，不要依赖Delphi的回调来完成这类时效性要求高的操作。

内容的提问来源于stack exchange，提问作者Jason Fouret