关于文本框里面支持ctrl+c ctrl+v 的问题

Question

我再一个文本框里面只能输入数字和退格符，可是现在里面ctrl+c  ctrl+v 也不支持了。
代码如下。procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
begin
  key:=#0;
 MessageDlg('请输入数字',mtConfirmation,[mbyes],0);
 edit11.SetFocus;
end;
end;高手给说说怎么才能支持ctrl+c  ctrl+v 谢谢了

Answer 1

ctrl+c     #3
ctrl+v     #22

Answer 2

if not (key in ['0'..'9',#8]) and (key<>#3)and (key<>#22) then
begin
  key:=#0;
 MessageDlg('请输入数字',mtConfirmation,[mbyes],0);
 edit1.SetFocus;
end;

Answer 3

感谢：gxgyj( 杰克.逊_Discovery ) 和liuxz_444(liuxz) 问题解决了

Answer 4

感谢：gxgyj( 杰克.逊_Discovery ) 和liuxz_444(liuxz) 问题解决了