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

项目中用到一个TJamShellList组件,此组件实现绑定查询图片,发现在使用Ctrl+C的同时也可以使用Ctrl+V结果将一个图处复制了多份,这样就不行了:(
于是,想了一个办法,禁用了Ctrl+V组合按键,代码如下:
//在KeyDown事件中写如下代码
【我学Delphi心得与笔记-------在控件上如何禁用Ctrl+V】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

    推荐阅读