Советы по Delphi
Ограничение TEdit на ввод не-цифровой информации
Вставьте следующую строку в обработчик события KeyPress:
| if not (Key in [#8,'0'..'9']) then Key := #0; |
Вставьте следующую строку в обработчик события KeyPress:
| if not (Key in [#8,'0'..'9']) then Key := #0; |