[Yurk@]

Можно в OnKeyPress поместить такой код:

Код:

case Key of
'0'..'9',#8  :;
else
ShowMessage('Сообщение об ошибке');
Key:=#0;
end;

И эта проблема уже не актуальна:

Вправо-влево пользователю двигать курсор запретим? Выделение Shift`ом тоже? Home/End?

Но эта всё-же имеет место:

Копирование/вставку?

[Oleg]

Тут же у меня написано так:
c символом "[" code]
try
StrToInt(Строка)
//В строке записано число
except
//Ошибка
end;
"- нет /code]" - нет и всё смотрится как без code
, но когда пишу ответ, то всё смотрится нормально.

P.S.: просто прояснял ситуацию.

[Rokuell]

А не проще

Код:

TryStrToInt(const S: string; out Value: Integer): Boolean

Если результат True, то ошибок нет

PS: функция из модуля SysUtils

[Burka]

кстати есть процедура Val(str,int,error)
вроде так, которая заноист в error любое число, не ноль, если ошибка. и не надо никаких try except'ов.

[WcN]

Спасибо всем, кто откликнулся!
Справился с этим вопросом с помощью Val.