首页 > 代码库 > 控件屏蔽Ctrl+C 复制

控件屏蔽Ctrl+C 复制

 

 

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 复制