delphi Edit,Memo中禁用Ctrl+V

本文整理自网络，侵删。

 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; 

相关阅读 >>

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 精确打印image画布

Delphi idhttp友好错误信息的捕获

Delphi中让图片大小随timage控件大小变化

Delphi deletefiles 删除目录下多个文件

Delphi comparestr 函数

Delphi 判断正在运行的设备是iphone还是ipad

Delphi调用android振动功能

Delphi 获取计算机名和用户名

剪贴板单元 clipboards.pas

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Edit,Memo中禁用Ctrl+V