如何使Edit组件中只能输入数值

fyuteryu 发布于 2008-06-03 22:59， 1468 次点击

void __fastcall TForm5::Edit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
我调用这个函数得到了输入的键值，但不知道怎么使系统不响应。
请高手帮帮忙，谢谢

1 回复

andyzhshg2008-06-05 13:00

void __fastcall TForm5::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if (Key < '0' || Key > '9')
        Key = NULL;
}