Тема: Символы в Edit
Показать сообщение отдельно
  #4  
Старый 28.09.2009, 20:41
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
  
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию
в событии OnKeyPress твоего Edit:
Код:
case Key of 
'1'..'9' :;
else Key:=#0
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз