急！！！怎样在Richedit控件中屏蔽Ctrl+V,Ctrl+C等组合键？？？

Question

我仿照金山打字通写了一个测指法的小程序，
但不知怎样在Richedit控件中屏蔽Ctrl+V,Ctrl+C等组合键？？？
请各位大虾帮我，谢谢！

Answer 1

在RichEdit控件的OnKeyDown事件中写如下代码：
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ssctrl in shift then
  if (key=ord('C')) or (key=ord('V')) then
    key:=0;
end;