Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать маску на ввод текста в TEdit?


NailMan ©   (2007-12-05 14:51:00) 

Нужно чтобы пользователь мог ввести только определенные символы(0..9, a..z, A..Z, '.', '*') в поле TEdit а другие бы вообще не принимались.

Давно не программировал, потому все позабыл(а с этим моментом и не сталкивался).

Каким образом сие сделать? Свойства Mask у него же нет.


Gydvin   (2007-12-05 17:25:00) [1]


>  тут надо еще что-то городить
> OnChange ?


Есть савсем тупое решение
Подключить пустое popurmenu :0)


Denis__   (2007-12-05 17:02:00) [2]


> тут надо еще что-то городить

OnChange ?


NailMan   (2007-12-05 16:57:00) [3]

[6] Denis__ ©
У меня задача не полностью защититься, а просто недопустить ввода левых символов простым пользователем. Копипаст левые символы позволяет вставлять, тут надо еще что-то городить(мне не нужно).

Для бэкспейса поставил #8 в разрешенные и все проходит.

---
P.L.U.R. and WBR, NailMan aka 2:5020/3337.13


Denis__   (2007-12-05 16:28:00) [4]


> NailMan ©   (05.12.07 15:15) [4]
> Усе, сделал по [2]. Если символ не тот то Key=chr(0) - так
> пойдет в принципе? Вроде левых символов в text этим нулем
> не заносится.

А вставлять туды он не может? или я не в теме? или, скажем Backspace  нажмёт..


Германн   (2007-12-05 15:25:00) [5]


> Если символ не тот то Key=chr(0) - так пойдет в принципе?

Пойдет. Хотя эстетичнее писАть Key:=#0:)


NailMan   (2007-12-05 15:15:00) [6]

Усе, сделал по [2]. Если символ не тот то Key=chr(0) - так пойдет в принципе? Вроде левых символов в text этим нулем не заносится.

---
P.L.U.R. and WBR, NailMan aka 2:5020/3337.13


{RASkov}   (2007-12-05 15:01:00) [7]

> [0] NailMan ©   (05.12.07 14:51)
> Свойства Mask у него же нет.

Замени TEdit на TMaskEdit...
Хотя.... '.', '*' - фик знает, а [2] - надежно)


Германн   (2007-12-05 14:56:00) [8]


> Каким образом сие сделать? Свойства Mask у него же нет.

OnKeyPress поможет отсеять нужное и отбросить лишнее.


www   (2007-12-05 14:55:00) [9]

onkeydown


Наверх

Титульная страница Поиск, карта сайта Написать письмо