TEdgeBrowser 弹出菜单/上下文菜单答案

【问题标题】：TEdgeBrowser Popup menu / Context menuTEdgeBrowser 弹出菜单/上下文菜单
【发布时间】：2021-08-26 16:30:26
【问题描述】：

如何覆盖 TEdgebrowser 组件中的上下文菜单？属性检查器没有为此提供事件。

【问题讨论】：

很可能你不能 - How to disable TWebBrowser context menu? 也没有答案。
@AmigoJack 对于这篇文章How to disable TWebBrowser context menu?，我发布了解决方案。
欢迎来到 Stack Overflow：它适用于问题和答案。与 cmets 相比，答案有更多的空间，即发布实际代码和解释。我很确定您的评论将很容易被监督，更不用说一旦链接资源不再存在就毫无价值了。

标签： delphi

【解决方案1】：

可以使用 Javascript 禁用上下文菜单。此解决方案并未涵盖所有用例。我的问题就够了..

<!DOCTYPE html>
<html lang="de">
  <head>
  <title>Test</title>
  <script type='text/javascript'>
    let ContextMenuDefault = false;  
    document.addEventListener('contextmenu', function(event)
    {
      if (false == ContextMenuDefault)
       event.preventDefault();
    }, true);
  </script> 
  </head>   
  <body>
   Hello World
  </body>
</html>

【讨论】：