|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка вводимых данных в LabeledEdit
Нужно запретить вводить в LabeledEdit латинские символы (A-Za-z). Киррилица, цифры, знаки препинания должны нормально вводиться. Как это сделать?
|
#2
|
|||
|
|||
Создаешь обработчик события OnKeyPress и в нем пишешь:
Код:
procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char); begin if Key in ['a'..'z', 'A'..'Z'] then Key:= #0; end; |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Лучше бы репутацию поднял человеку...
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |