控件屏蔽Ctrl+C 复制

Posted 2020-09-06 是蓝蓝的呀

 

 

procedure ****.***KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ((Key = 67) or (Key = 99)) and (ssCtrl in Shift) then
  begin
      //Exit;解决不了问题
      Abort;//可以
  end;
end;