关于控制鼠标右键的问题

请教下高手
在stringgrid里面我想禁止鼠标右键或者修改右键弹出的快捷菜单.
我设置了PopupMenu.
在单元格非编辑状态下是能实现的.
但是当处于编辑状态,就无法控制鼠标右键.
哪位高手给点建议

在StringGrid的OnGetEditText中,给Edit加个菜单即可
Delphi(Pascal) code

Type
  TMyStringGrid = Class(TCustomGrid);
  TMyControl = Class(TControl);

procedure TForm1.GridGetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: String);
begin
  TMyControl(TMyStringGrid(Grid).InplaceEditor).PopupMenu := PopupMenu1;
end;