 Только цифры в Edit |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| Tan |
 4.03.2007 17:24
Сообщение
#1
|
 Профи  Группа: Пользователи Сообщений: 559 Пол: Мужской Реальное имя: Бруно Репутация:  10   |
Хотелось бы поинтересоваться как в делфи сделать так чтобы в компонент Edit можно было бы вводить только цифры. В паскале делал через ОРД но не знаю как тут это всё дело связать с
procedure TLogs.Edit2Change(Sender: TObject); -------------------- Цитата Imagination is more important than knowledge. Albert Einstein |
   |
 
|
  |
Ответов
| kominet |
16.03.2007 23:11
Сообщение
#2
|
 Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Николай Репутация: 0 |
Код procedure TADDVacancy.MinPayEditKeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9']) then Key:=#0; end; вот если так пропимано то при нажатии на бекспэйс ничего не происходит..... всё сам уже нашёлююю нужно #8 добавть ...if not(Key in ['0'..'9',#8]) then... Сообщение отредактировано: kominet - 16.03.2007 23:13 |
|
|
|
Сообщений в этой теме
Tan Только цифры в Edit 4.03.2007 17:24
мисс_граффити procedure TForm1.Edit1KeyPress(Sender: TObject; v... 4.03.2007 17:32 Tan а чтобы END и Home держались какие цифорки надо ещ... 4.03.2007 17:35 volvo Ничего не надо больше учитывать... Home и End и та... 4.03.2007 17:40 Tan Немного непонятно как данную операцию связать с ко... 4.03.2007 18:15 мисс_граффити а в инспекторе объектов прописал связь события с э... 4.03.2007 18:17 Tan Именно это я и забыл сделать. Спасибо Мисс Графити... 4.03.2007 18:23 kominet извеняюс наверно за глупый вопрос а какой код клав... 16.03.2007 22:58 volvo BackSpace и так работает для TEdit (если ты ничего... 16.03.2007 23:09 volvo Кстати, ты думаешь, тебя это спасет от ввода НЕ ци... 16.03.2007 23:31 kominet
Кстати, ты думаешь, тебя это спасет от ввода НЕ ц... 17.03.2007 0:11 volvo Варианты есть всегда...
На вкладке Additional ест... 17.03.2007 0:28
мисс_граффити Ctrl+V и так не работает.
А вот щелчок правой кноп... 17.03.2007 13:22 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 14.07.2025 4:18 |