![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать чтобы в 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