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;
控件屏蔽Ctrl+C 复制
原文：http://www.cnblogs.com/rogge7/p/6625282.html
