实现在Delphi中回车和Ctrl+V失效

在Delphi中实现输入时回车失效，同时不能使用Ctrl+V的粘贴功能。具体做法如下：

在相应控件的OnKeyPress中加入：

if key = # 13 then key := #0;//回车失效

if key = # 22 then key := #0;//粘贴失效（D中Ctrl+V组合键键值为22）

另外，也可以用拦截消息的方法：

procedure WMPaste(var Message: TMessage); message WM_PASTE;

procedure WMPaste(var Message: TMessage);

begin

   //这里什么都不要写；

end;