2017年3月27日
控件屏蔽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;... 阅读全文
posted @ 2017-03-27 09:45 海蓝7 阅读(247) 评论(0) 推荐(0) 编辑