Запрет на ввод цифр или букв.

[(*_*)]

Подскажите как запретить ввод цифр или букв в Edit?

[Sazary]

Можно обрабатывать OnKeyPress и проверять в обработчике Key. Если цифра - то выводим в Эдит, если нет - то нет.

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(Key<48||Key>57) Key=0;
}

Или можно воспользоваться компонентом MaskEdit.

Еще вот здесь посмотрите.
http://programmersforum.ru/showthread.php?t=21593

[(*_*)]

Спасибо! Помогли.