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