用TWordApplication 打开的Word文档如何屏蔽鼠标右键菜单?

解决方案 »

  1.   

    写一个新的类,继承TWordApplication
    可以屏蔽右键消息
      

  2.   

    右键的消息
    WM_RBUTTONDOWN
    继承这个类是最简单的方法
    否则,你需要继续WindowProc,更加麻烦
    TMyObject = Class(TWordApplication)
    private
      procedure RightClick(var Msg: TWMRBUTTONDOWN); message WM_RBUTTONDOWN;
    publicend;implementationprocedure TMyObject.RightClick(var Msg: TWMRBUTTONDOWN); 
    begin
      //这里不用任何代码,可以达到效果
    end;end没有测试过,大概就是这样