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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Запрет ввода определённых символов, Без использования маски ввода
сообщение
Сообщение #1


Новичок
*

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

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


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

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


code warrior
****

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

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


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


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


Новичок
*

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

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


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

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


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

А поподробнее можно? Кодом.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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

 





- Текстовая версия 27.10.2020 11:39
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name