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获取uri的查询参数

Delphi 蠕虫下载者源代码

Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息

Delphi 获取网页代码单元

Delphi 操作sql 插入一万条数据 三种方式速度测试

Delphi 延迟时间函数

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi的ttreeview类使用大全

Delphi windows 编程[18] - 更换菜单项: modifymenu

Delphi中利用msdasc来配置数据库链接

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

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