Фильтрация ввода в 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 показывается только последний.
Как же все таки отфильтровать неугодные символы, в данном случае нужно отфильтровать все кроме кириллицы.
|