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

SH_XL_ZHUFO

如题
3.0.6.2819

jiahaiminghr

把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;

lisb

你可以去掉datagrid的UseDefaultPopupMenu属性，自己做一个PopupMenu。

SH_XL_ZHUFO

非常感谢，2楼的方法正和我意，也谢谢三楼的帮忙，结帖