Тема: запрет нежелаемого ввода
Показать сообщение отдельно
  #3  
Старый 18.05.2009, 10:05
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
  
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию
Чуть прочитал пост. В обработчике OnKeyPress
Код:
 if not (Key in ['0'..'9', #8]) then  
    Key := #0;
Ответить с цитированием