如何禁用olecontainer控件的拷贝功能？

[truelang]

如题，谢谢！

[truelang]

在DELPHI7.0中，我使用了OleContainer控件，用来显示WORD、EXCEL文件的内容，但想在用户查看时，禁止对文件内容的拷贝。
请各位高人指点一二，谢谢。

[truelang]

在线等待中。。。。。。

[SQLDebug_Fan]

这个不好做

[guanking]

自己写一个消息处理过程搂接管olecontainer所在的窗体的默认消息处理过程。把WM_Cut,Wm_
Copy,Wm_Paste三个消息过滤掉

[guanking]

一个对edit屏蔽的例子

 procedure   TForm1.EditWndProc(var   Message:   TMessage);   
  var   
      ch:   Word;   
  begin   
      if   (Message.Msg   =   WM_PASTE)   or   (Message.Msg   =   WM_CUT)   
                  or   ((Message.Msg   =   WM_CHAR)   and   (Message.WParam   >   127))   then     
          Exit;   
      OldWndProc(Message);   
  end;   
    
  procedure   TForm1.FormCreate(Sender:   TObject);   
  begin   
      OldWndProc   :=   Edit1.WindowProc;   
      Edit1.WindowProc   :=   EditWndProc;   
  end;   

[truelang]

楼上的，OldWndProc好像出错？不知道是什么原因，能否详细说明一下，谢谢。

[truelang]

几天没来，这个问题还是没有进展，333333

[truelang]

在线等待！