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使用tclientdataset时不携带midas.dll的方法

Delphi xe7 android 实现的在线更新app的一个程序

Delphi将目录删除到回收站中

Delphi 判断当前程序是否是活动窗口

Delphi 根据关键字取关键词以后的字符串

Delphi adoquery查询更改用户

Delphi closehandle的解释

Delphi使用idhttp 获取 httpsurl内容

Delphi版ip地址与整型互转

Delphi 字符串中提取字母数字

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

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