【搞定】怎么达到统一禁用所有TDataGrid右键菜单中的"导出功能"

zhouxihong

怎么达到统一禁用所有TDataGrid右键菜单中的"导出功能"子菜单，同时保留其它子菜单。

我们现在的所有TFORM都是从统一的自定义的TBaseForm继承，我的想法是在这里拦
拦截表单文档上TDataGrid右键消息，请教该如何实现？或者提供别的方法。谢谢。


A。表单文档，本来没有WNDPROC我想是不能处理消息的，所以才想到在TFORM中处理。
B。另，又不能修改TDataGrid，所以，这个也没法处理了吧。
C。不知道可不可以在TFUNC可处理，这个还没来得急尝试。

d.在delphi下可以定义
procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
来处理，在X3中好像不行。

zhouxihong

procedure DefaultHandler(Message: TObject); virtual;
这个能用否？

wangyl

关注

alang

请参考 http://wiki.justep.cn/mywiki/moi ... ight=%28datagrid%29

zhouxihong

谢谢alang

zhouxihong

2.然后找到‘业务模型\系统空间\用户界面基础\库\公共组件库\DataGrid默认菜单’，得知‘输出为（E）’的Name为pmCSaveAs；


这个我这没有呀，我版本是2323

atiger

这个是后来（从2611）才公布出来的，
我们已经给何总监发送新版本和升级包，请向他所取吧

zhouxihong

是否2323上加入上述代码无效呢？我测试了一下貌似不行。

to:atiger 多谢。

zhouxihong

procedure TMainForm.DataGrid1PopupMenu(const Sender: TPopupMenu; var UseDefault, Handled: Boolean);
var
  I: integer;
begin
  UseDefault := true;
  for I := 0 to Sender.Items.Count - 1 do
  begin
    Dialogs.ShowMessage(Sender.Items[I].Name);
    //if sysUtils.SameText(Sender.Items[I].Name, 'pmCSaveAs') then
    //begin
    //  Sender.Items[I].Visible := false;
    //  break;
    //end;
  end;
end;
取到的都是空名称

zhouxihong

如果没办法，我暂时用caption吧。