本文整理自网络,侵删。
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通过setupapi.dll列举和停用硬件设备
Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4
Delphi showmainform := false 失效的解决办法
Delphi xe5 for android 地理定位gps
Delphi dos批命令打开应用程序同时关闭dos窗口本身
更多相关阅读请进入《Delphi》频道 >>