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 webservices 字节数组 base64编码

Delphi xe5 android openurl

Delphi 实现延时自动关闭对话框

Delphi 调用wmi信息判断系统师傅安装杀毒软件

Delphi 清空目录以及子目录

Delphi 校验手机号及身份证号

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi从路径中分离文件名

Delphi异常处理try except语句和try finally语句用法以及区别

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

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