Edit的输入控制问题？

Question

我想在Edit中控制输入，比如只能输入数字，我现在已经知道了怎么样实现，但我还向能够输入CRTL+C,CRTL+X,CRTL+V,不知道代码怎么写？

Answer 1

可以判断SHIFT这个东西吧，这里没有DELPHI不能帮你看了，我记得Keydown 和 keyup事件都有这个参数的。

Answer 2

procedure cmp(var key:char);
begin
    if ((ord(key)>57) or (ord(key)<48)) and (ord(key)<>8)then
    begin
    key:=chr(20);
    end;
end;
然后在
edit的onkeypress事件里调用
如：cmp(key)
ok!

Answer 3

怎么没有人会的,其实我就想要求能够只输入数字,并能通过CRTL+C,CRTL+V,CRTL+X进行控制

Answer 4

在edit1的onpeypress事件中扑获键盘的按键消息啊

Answer 5

在onkeydown中比如ctrl+c,拷比到剪帖板中就可以了

Answer 6

我觉得csdn怎么没有人能够明白的，是不是我没有说清楚呀，郁闷亚

Answer 7

Edit1keypress里面
if key in ['a..z','A..Z'] then
  key:=#0;

Answer 8

我已经在大富翁上找到答案了，希望csdn上的朋友也多多努力，在此公布解决方法，希望对大家有帮助
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.','-',#22,#3,#24,#26]) then
   key:=#0
end;