IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Запрет ввода определённых символов, Без использования маски ввода
Psychologist
сообщение 3.06.2008 15:48
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 37
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Всем доброго времени суток!

Возник такой вопрос:
как сделать так, чтобы в объект типа TMaskEdit можно было вводить только цифры?
И главное: маску ввода использовать нельзя.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
hardcase
сообщение 5.06.2008 23:30
Сообщение #2


code warrior
****

Группа: Пользователи
Сообщений: 484
Пол: Мужской
Реальное имя: Славен

Репутация: -  8  +


Цитата(Psychologist @ 3.06.2008 16:48) *
И главное: маску ввода использовать нельзя.
Глупо в такой элементарщине ограничивать себя.
1) Нужно перехватывать нажатия клавиш в сообщении WM_KEYDOWN и возвращать ноль для нецифровых символов, кроме стрелок.
2) Тупо после каждого нажатия (событие OnKeyUp) проверять текст на наличие нецифровых символов, кои удалять следует.


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Psychologist
сообщение 6.06.2008 7:30
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 37
Пол: Мужской
Реальное имя: Евгений

Репутация: -  0  +


Цитата(hardcase @ 6.06.2008 0:30) *

Глупо в такой элементарщине ограничивать себя.
1) Нужно перехватывать нажатия клавиш в сообщении WM_KEYDOWN и возвращать ноль для нецифровых символов, кроме стрелок.
2) Тупо после каждого нажатия (событие OnKeyUp) проверять текст на наличие нецифровых символов, кои удалять следует.


Наверное, я не сам себе задачи ставлю. ;)
Сказано: TMaskEdit, значит будет TMaskEdit.

А поподробнее можно? Кодом.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
krox
сообщение 27.06.2008 9:03
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской

Репутация: -  0  +


procedure TForm1.t2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8: ;
'-': if Length(t2.Text) <> 0 then Key := #0;
else Key := #0
end;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 25.06.2025 6:12
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"