|
发表于 2007-11-12 11:48:33
|
显示全部楼层
大哥,论坛很多呢。
这是屏蔽部分的例子
把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;
还有全部屏蔽,你可以搜索看看 |
|