Memo控件怎样防止拷贝？

[netsys]

Memo里写了一些东西，要求不能通过键盘、鼠标选择后拷贝其中的文字。

[lurel]

截获WM_COPY,然后return

[ccrun.com]

严格的来处理，应该是截获WM_GETTEXT和WM_COPY消息。

[netsys2]

有没有现成的代码？

[ccrun.com]

没有现成的，只好现写一个：

.h文件：
private: // User declarations
void __fastcall NewProc(TMessage &Message);

.cpp文件：
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Memo1->WindowProc = NewProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewProc(TMessage &Msg)
{
if(Msg.Msg == WM_GETTEXT || Msg.Msg == WM_COPY)
{
Msg.Result = 1;
return;
}
else
Memo1->Dispatch(&Msg);
}

[lurel]

让老妖抢先了
下面是我写的
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TWndMethod oldWndProc;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

oldWndProc=Memo1->WindowProc;
Memo1->WindowProc=newWndProc;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::newWndProc(TMessage &message)
{
switch(message.Msg)
{
case WM_GETTEXT:
return;
case WM_COPY:
return;
}
//TForm1::WndProc(message);
oldWndProc(message);
}

[netsys2]

谢谢两位，各50分！