13,825
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jbz 2004-01-10
- 打赏
- 举报
//哈哈，太简单了，下面代码可以 屏蔽TRichEdit中文本的复制功能（Ctrl＋C）
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==67&&GetAsyncKeyState(VK_CONTROL)<0)
{
Key=0;
ShowMessage("禁止复制！");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==67&&GetAsyncKeyState(VK_CONTROL)<0)
{
Key=0;
ShowMessage("禁止复制！");
}
}
//---------------------------------------------------------------------------
