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 显示提示信息xxx 是/否

Delphi 调用批处理

Delphi 操作 pdf -- 使用 acrobat sdk 初探

Delphi base64, quoted-printable 的解码与编码函数

Delphi dbgrid鼠标滚屏

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi 把exe可执行文件等作为资源包含在Delphi编译文件中

Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明

Delphi调用javascript解析json

cvcode.pas

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...