|
#1
|
||||
|
||||
Только цифры
Здравствуйте, подскажите пожалуйсто как сделать так, чтоб в компонент TEdit можно было вводить только числа??? Я как то раньше делал это через множество, но вот сейчас сижу и не могу вспомнить как это осуществляется.....
|
#2
|
|||
|
|||
Код:
procdure TForm1.Edit1KeyPress(...); begin If Key >= #32 Then If Not (Key In ['0'..'9']) Then Key := #0; end |
#3
|
|||
|
|||
Еще обычно нужна проверка на #8 (бекспейс)
Delphi - это лишь инструмент, а что ты сможешь создать при помощи этого инструмента, зависит исключительно от тебя. |
#4
|
||||
|
||||
имхо проще пользовать TMaskEdit (вкладка Additional) у этого компонента есть свойство EditMask, компонент позволяет вводить только цифры, причем маска настраивается, работать с ним - как с обычным TEdit
Понять, что хочет заказчик - бесценно, ведь он платит MasterCard |
#5
|
|||
|
|||
Цитата:
Прочти внимательно код. Я не блокирую служебные символы, только печатные. |
#6
|
||||
|
||||
Точно, именно так я раньше и делал Большое спасибо за помощь, а MaskEdit использовать в моем случае не удобно.
|
#7
|
|||
|
|||
Цитата:
Угу в том то и дело, что кроме единственно нужного бекспейса у тебя попадают все служебные символы. Delphi - это лишь инструмент, а что ты сможешь создать при помощи этого инструмента, зависит исключительно от тебя. |
#8
|
||||
|
||||
да какая разница, программка от этого больше весить не станит)))
|
#9
|
|||
|
|||
Цитата:
Ага, а что они делают??? Для Edit'а это не критично. |