我學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組合按鈕的功能