怎样防止richedit中的内容被复制

Question

readonly:=true不就行了吗！

Answer 1

或者干脆不让richedit1获得焦点
sendmessage(richedit1.handle,WM_KILLFOCUS,0,0);

Answer 2

readonly:=true;最简单了
不让richedit1获得焦点，岂不是变成LABEL之类的东西了
干掉它的右键下拉菜单属性，再在keypress or keydown中屏蔽掉CTRL＋C

Answer 3

上面各位的办法都有不足之处：
看我的如何：
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);0D
begin
  RichEdit1.SelLength := 0; //无法选中内容，当然不能复制！
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 4

gettext 可能也能得到吧  （不是很清楚）

Answer 5

各位的方法都有道理，我是先在keydown事件中拦截ctrl+c和ctrl+x键，并保存剪贴板的内容，然后在keyup中恢复
  谢谢大家,现在给分