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

Question

如题，谢谢！

Answer 1

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

Answer 2

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

Answer 3

一个对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;   

Answer 4

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