控件屏蔽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;
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;
感谢楼主的无私分享
可以发JAVA ppt 给我吗 ? 我的邮箱 liuhymail@126.com 先谢谢啦!!!
我就是第二种,确实非常隐蔽,感谢博主
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· 【译】.NET 升级助手现在支持升级到集中式包管理
· 开发者新选择:用DeepSeek实现Cursor级智能编程的免费方案
· 独立开发经验谈:如何通过 Docker 让潜在客户快速体验你的系统
· 并发编程 - 线程同步(二)
2015-03-27 1、Delphi 打开目录和txt文件模块
2015-03-27 2.2 代码块--delphi 写日志模块
2015-03-27 3、利用SuperObject 循环处理Json深层次的值
2015-03-27 4、delphi record数组复制