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 unigrid记录check遍历

Delphi 如何将access数据库后缀名accdb改为mdb

Delphi实现tedit控件的外观只有一条下划线

Delphi 复制拷贝文件目录函数

Delphi获取mac地址

Delphi10.3 构造生成输出json数据

Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的

Delphi 判断目录是否可写

Delphi [android]获取屏幕的物理分辨率

Delphi win10下message无法接收的问题

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

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