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如何开发游戏外挂

Delphi unigui hyperserver

Delphi动态建立panel无法更改颜色?

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi 对zlib单元进行再封装

Delphi中的split函数

Delphi isthisleapyear 判断闰年

Delphi根据网络链接截取域名

Delphi xe android 程序切换到后台及从后台切换到前台实现

Delphi禁止tedit, tmemo右键上下文弹出菜单

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

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