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 idhttp1 xmlpost

Delphi实现获取文件及文件夹大小(支持超过2g的大文件)

Delphi api屏幕传输算法

Delphi 打开资源管理器并定位到指定目录下的文件

Delphi中设置条件断点

Delphi做异型窗体png透明

Delphi idhttp代理设置

Delphi xe2 - 万一“获取程序自身大小的函数”改进版

Delphi 官方 processmessages 用法代码例子

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

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