Компилятор: C++ Builder
В событии OnKeyPress окошка редактирования (Edit):
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { if ((Key < '0' || Key > '9') && Key != 8) Ke y= 0; }