怎么禁用olecontainer控件的拷贝功能

如何禁用olecontainer控件的拷贝功能？
如题，谢谢！

[解决办法]
这个不好做
[解决办法]
自己写一个消息处理过程搂接管olecontainer所在的窗体的默认消息处理过程。把WM_Cut,Wm_
Copy,Wm_Paste三个消息过滤掉
[解决办法]
一个对edit屏蔽的例子

Delphi(Pascal) code

 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;