起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 187|回复: 3

【结贴】如何在运行中用代码屏蔽datagrid右键菜单中的某项??**

[复制链接]
发表于 2007-11-6 17:14:42 | 显示全部楼层 |阅读模式
如题
3.0.6.2819
回复

使用道具 举报

发表于 2007-11-6 17:21:50 | 显示全部楼层
把DataGrid的UseDefaultPopupMenu属性设置为false,然后DataGrid有几个PopupMenu事件。

例如我要取消‘导出为...’,则可以这么写:

procedure TCUSTOMERCENTER.DataGridPopupMenu(const Sender: TPopupMenu; var UseDefault, Handled: Boolean);
begin
  Sender.Items[8].Visible := false;
  UseDefault := true;
  Handled := false;
end;

procedure TCUSTOMERCENTER.DataGridHeaderPopupMenu(const Sender: TPopupMenu; var UseDefault, Handled: Boolean);
begin
  UseDefault := true;
  Handled := false;
end;

procedure TCUSTOMERCENTER.DataGridFooterPopupMenu(const Sender: TPopupMenu; var UseDefault, Handled: Boolean);
begin
  UseDefault := true;
  Handled := false;
end;
回复 支持 反对

使用道具 举报

发表于 2007-11-6 17:22:07 | 显示全部楼层
你可以去掉datagrid的UseDefaultPopupMenu属性,自己做一个PopupMenu。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-7 09:59:26 | 显示全部楼层
非常感谢,2楼的方法正和我意,也谢谢三楼的帮忙,结帖
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-30 04:51 , Processed in 0.039303 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表