|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Фильтрация ввода в Edit.text
Добрый день или вечер или утро.
Подскажите пожалуйста момент. Необходимо отфильтровать вводимые пользователем символы в Edit.text Попробовал так: procedure TForm2.Name1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If key in ['A'..'z'] Then Name1.Text := ''; end; Но зараза печатается первая позиция а остальные фильтруются, то есть печатаем пять фильтруемых символов и в поле Edit показывается только последний. Как же все таки отфильтровать неугодные символы, в данном случае нужно отфильтровать все кроме кириллицы. |