Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 17.11.2011
Сообщений: 53
1

запрет ввода в едите

22.11.2011, 19:18. Показов 1394. Ответов 2
Метки нет (Все метки)

здрасьте! видел много тем за запрет ввода в едите но почему то не работает ни один из способов. единственное что получилось это оставить только числа, а нужны еще минус, точка, запятая, и бэкспейс.
помогите пожалуйста, архив с прогой прикрепил
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: rar прога.rar (409.5 Кб, 6 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2011, 19:18
Ответы с готовыми решениями:

Запрет ввода StringGrid
Доброго времени суток. Не понимаю почему не работает следующая конструкция: procedure...

Запрет ввода в StringGrid
у меня транспортная задача, необходимо запретить ввод цифр в крайнюю нижнюю ячейку. размерность...

TMemo - запрет ввода
небольшая форма и есть мемо, на котором много текста нужно сделать (без всяких Enable:=False, т.к....

Запрет ввода Пробела в Edit
Имеется Edit, в который пользователь вводит данные. Если пользователь оставил поле пустым, то в...

2
5441 / 2148 / 450
Регистрация: 20.11.2009
Сообщений: 7,186
Записей в блоге: 1
22.11.2011, 19:31 2
Лучший ответ Сообщение было отмечено nikitoto как решение

Решение

Delphi
1
2
3
4
5
6
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const X = ['0'..'9', '-', '.', ',', #8];
begin
  if Key in X then
    Key := #0;
end;
это запрет этих символов
Delphi
1
2
3
4
5
6
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const X = ['0'..'9', '-', '.', ',', #8];
begin
  if not(Key in X) then
    Key := #0;
end;
а это запрет всех, кроме этих
0
0 / 0 / 0
Регистрация: 17.11.2011
Сообщений: 53
22.11.2011, 20:13  [ТС] 3
оО спасибо работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2011, 20:13

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Запрет ввода нуля в edit
Как запретить ввод в edit первой цифрой нуль , что бы если первая цифра нуль , то менялась бы на 1

запрет ввода с клавиатуры cxSpinEdit
Здравствуйте. компонент DevExpress cxSpinEdit Можно ли запретить пользователям вводить данные с...

Delphi 7 калькулятор запрет ввода
Привет, как в калькуляторе можно запретить ввод в edit двойного плюса '++' или '+*' и т.д. Вот код:...

Запрет ввода определенного числа
Извините, если я повторяюсь и такая тема уже существует на данном форуме. Как можно в компоненте...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.