[pva]

А если контролировать в процессе набора? Прямо по событию нажатия клавиши.

Традиционный способ:

Код:

TMyEdit::perform(TMessage& msg)
{
     if (msg.message!=WM_CHAR || isdigit(msg.wParam))
     {
           TWdit::perform(msg);
     }
};