（33）uniGUI for Delphi下如何禁用控件的右键菜单

(中行雷威2019.8.4)

（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群299497712,860634510、484979943（已满）、进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）

【阅读倡议】

1、有问题请留言;

2、没问题请点赞;

3、看连载请加群;

4、下源码请加群;

【开发工具】

1、C++Builder and Delphi 10.3.2

2、FMSoft_uniGUI_Complete_Professional_1.70.0.1506（正版）

本人主笔的国内第一本uniGUI教学案例代码已诞生，分为cbuilder和delphi两个版本，买代码送手册，需要的朋友可以加入我的QQ技术交流群299497712,860634510、484979943（已满）给我（群主）留言。资料简介：https://blog.csdn.net/dlboy2018/article/details/88923832

uniGUI开发的项目在运行时能否禁用鼠标右键菜单呢？答案是肯定的，因为uniGUI提供了一系列的配置属性让你可以根据需要个性化设置，如此将UniMainModule的BrowserOptions属性的boDisableMouseRightClick设置为true就可以禁用右键菜单，特别简单。但是如此设置后整个页面上的所有控件都看不见右键菜单了，如何只禁用某个控件的右键菜单呢？比如不做全局设置，而是仅仅让UniDBGrid和UniStringGrid控件内不能右键弹出菜单，代码如下：

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  IDs: string;
begin
  IDs := UniDBGrid1.JSId + ',' + UniStringGrid1.JSId;
  UniSession.AddJS('document.oncontextmenu = document.body.oncontextmenu = '+
                   '  function (e) { var s=true; e.path.forEach(function(el){'+
                   '    if(el.id!="" && "'+ IDs +'".includes(el.id)){s=false}'+
                   '  });'+
                   'return s}');
end;