我学Delphi心得与笔记-------在控件上如何禁用Ctrl+V

项目中用到一个TJamShellList组件，此组件实现绑定查询图片，发现在使用Ctrl+C的同时也可以使用Ctrl+V结果将一个图处复制了多份，这样就不行了:(

于是，想了一个办法，禁用了Ctrl+V组合按键,代码如下:

//在KeyDown事件中写如下代码

procedure TFrmPictureBrowse.lstPictureKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if(ssctrl in shift)and(key = $56)   then
  begin
     Key := 0;
  end;
end;

这样就能禁用Ctrl+V组合按钮的功能

转载于:https://www.cnblogs.com/youshan/archive/2012/02/17/2355583.html