如果屏蔽掉复制功能?(100分)

显示在MEMO里的内容但是我不想被别人拷走也就是说我怎么把复制,剪贴 粘贴这些功能屏蔽掉?

屏蔽快捷键和右键菜单！
或重载这些消息。

学习

屏蔽右键菜单

var
Form1: TForm1;
FMHook: HHOOK;
function FMHookProc(Code: Integer; WParam: Longint; var Msg: TMsg): Longint; stdcall;

implementation

{$R *.DFM}

function FMHookProc(Code: Integer; WParam: Longint; var Msg: TMsg): Longint; stdcall;
begin
if Msg.Message = WM_RBUTTONDOWN then
with form1 do
begin
//你还可以先判断一下位置。
Msg.Message := 0;
end ;
Result := CallNextHookEx(FMHook, Code, WParam, Longint(@Msg)); //放出消息给下一个.
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FMHook := SetWindowsHookEx(WH_GETMESSAGE, @FMHookProc, 0, GetCurrentThreadID);
end;

接受答案了.