Поиск сообщества
Показаны результаты для тегов 'только цифры'.
Найдено: 1 результат
-
Проблема заключается в следующем: мне нужно запретить ввод в TEdit всех символов, кроме цифр и запятой, а если вводится точка, то подменить ее на запятую. Запретить пробовал так: procedure TForm.EditKeyDown(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', 'А'..'Я', 'а'..'я', 'A'..'Z', 'a'..'z', #8 ]) then Key:=#0; end; Символы продолжают вводиться. Запрет должен происходить при нажатиях на экранную клавиатуру Android'а. События KeyPressed я в XE6 не нашел.
