|
发表于 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; |
|