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

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

Как сделать чтобы в Edit1 можно было вводить только цифры? [D7]


greengeneral ©   (2006-09-16 16:05:00) 

Как сделать чтобы в Edit1 можно было вводить только цифры?


greengeneral   (2006-09-16 16:33:00) [1]

Спасибо


cp.Silver   (2006-09-16 16:25:00) [2]

Или так:
В событии TEdit.OnKeyPress пишешь:

   if (Key in ['0'..'9']) or (Key = #8) then else Key:= #0;


MBo   (2006-09-16 16:14:00) [3]

добавить стиль ES_NUMBER с помощью SetWindowLong и GetWindowLong


Наверх

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