|
#1
|
|||
|
|||
Интересный вопрос
Как сделать так чтобы в поле edit можно было вводить токо числа,
а если вводят текст, то он должен ругаца и говорить, что нада вводить токо числа ??? Заранее спс |
#2
|
|||
|
|||
Много раз обсуждалось.
В событии onKeyPress Edita прописать Код:
case key of '0'..'9', #8:; else key :=chr(0); ShowMessage('Ругань всякая...') end; |
#3
|
|||
|
|||
спасиба тебе добрый человек
|
#4
|
||||
|
||||
А если наоборот можно вводить только буквы?
Нуб в Delphi Прошу проникнуться. |
#5
|
|||
|
|||
case key of 'A'..'z', #8:;
else key :=chr(0); ShowMessage('Ругань всякая...') end; Если для русских букв: case key of 'А'..'я', #8:; else key :=chr(0); ShowMessage('Ругань всякая...') end; Для рус и англ: case key of 'A{на англ языке!!!!}'..'я', #8:; else key :=chr(0); ShowMessage('Ругань всякая...') end; |
#6
|
||||
|
||||
Еще буква ё есть, ее, кажется, добавить тоже надо.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#7
|
||||
|
||||
Спасибо! =)
Нуб в Delphi Прошу проникнуться. |