Delphi 学习日记：禁止TEdit或TMemo的“Ctrl+V”粘贴

最新推荐文章于 2020-12-25 17:05:49 发布

weixin_30848775

最新推荐文章于 2020-12-25 17:05:49 发布

阅读量146

点赞数

原文链接：http://www.cnblogs.com/uws2056/archive/2012/02/23/2365104.html

版权

今天去About.com逛了逛，学到一点东西，记下来

No "Paste" for you!
To intercept any key combination for a TEdit (or TMemo or more generally TCustomEdit) you need to handle the OnKeyDown event.
Put a TEdit named "Edit1" on a form (named "Form1"). Handle Edit1's OnKeyDown event as:

uses Clipbrd, ...

//disable CTRL + V ("Paste") :: handles Edit1.OnKeyDown
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ;
begin
   if ((ssCtrl in Shift) AND (Key = ord('V'))) then
   begin
     if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear;

     Edit1.SelText := '"Paste" DISABLED!';

     Key := 0;
   end;
end;
When the user presses the CTRL+V key combination while Edit1 has the input focus ... the code above will clear the clipboard and "paste" the '"Paste" DISABLED!' text into the edit control.

转载于:https://www.cnblogs.com/uws2056/archive/2012/02/23/2365104.html