请问： 怎样屏蔽OleContainer的右键菜单呀？

Question

我用OleContainer打开一个excel,单击右键就弹出 “编辑、打开”  这个菜单，请问各位大虾如何不让他弹出这个菜单呀？谢谢！

Answer 1

如何屏蔽TWebBrowser的右键菜单
public
    { Public declarations }
    procedure OnAppMsg(var msg: tmsg;var handled: boolean);procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.163.com');
  Application.OnMessage := OnAppMsg;
end;procedure TForm1.OnAppMsg(var msg: tmsg; var handled: boolean);
begin
  if (msg.message = wm_rbuttondown) then
  begin
    showmessage(inttostr(WebBrowser1.Handle));
    //showmessage(inttostr(windowfrompoint(ScreenToClient(msg.pt))));
   // showmessage(inttostr(msg.lParam));
    //showmessage(inttostr(longint(@msg.wParam)));
    showmessage('trap browser mouse');
  end
  else
    inherited;
end;

Answer 2

有甚麼更好的方法來屏蔽OleContainer的右键菜单
我也用olecontaineｒ做項目．現在需要屏蔽OleContainer的右键菜单請各位高手幫忙
謝謝