控件屏蔽Ctrl+C 复制

 

 

复制代码
procedure ****.***KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ((Key = 67) or (Key = 99)) and (ssCtrl in Shift) then
  begin
      //Exit;解决不了问题
      Abort;//可以
  end;
end;
复制代码

 

posted @   海蓝7  阅读(251)  评论(0编辑  收藏  举报
编辑推荐:
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
阅读排行:
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· 开发者新选择:用DeepSeek实现Cursor级智能编程的免费方案
· 【译】.NET 升级助手现在支持升级到集中式包管理
· 独立开发经验谈:如何通过 Docker 让潜在客户快速体验你的系统
· Tinyfox 发生重大改版
历史上的今天:
2015-03-27 1、Delphi 打开目录和txt文件模块
2015-03-27 2.2 代码块--delphi 写日志模块
2015-03-27 3、利用SuperObject 循环处理Json深层次的值
2015-03-27 4、delphi record数组复制
点击右上角即可分享
微信分享提示