![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 04.11.2007
Сообщений: 77
|
![]()
Как разрешить ввод тока определеных клавишь?
В моем случае надо разрешить ввод только цифор с клавиатуры |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 08.07.2007
Сообщений: 76
|
![]()
Используй MaskEdit
Только начал изучать Delphi...
|
![]() |
![]() |
![]() |
#3 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
![]() Код:
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
![]()
Вот простой пример:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // Key — символ, соответствующий нажатой клавише. // Если символ недопустимый, то процедура заменяет его // на символ с кодом 0. В результате этого символ в поле // редактирования не появляется, и у пользователя создается // впечатление, что программа не реагирует на нажатие некоторых // клавиш. case Key of '0'..'9': ; // цифра #8 : ; // клавиша <Back Space> #13 : Edit2.SetFocus ; // клавиша <Enter> // остальные символы — запрещены else Key :=Chr(0); // символ не отображать end; end; С уважением Terran!
Всегда рад помочь!
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать в Edit Ввод только чисел | Pashin | Компоненты Delphi | 17 | 26.07.2011 21:12 |
Как запретить/разрешить ввод от клавиатуры любых символов (в том числе и юникодных)? | SkAndrew | Общие вопросы Delphi | 8 | 15.08.2008 15:30 |
Ввод только букв или цифр... | Teleport | Помощь студентам | 8 | 12.06.2008 14:57 |
начал учить только-только - нужна ваша помошь | vanDJ | Помощь студентам | 20 | 18.12.2007 21:53 |
Как сделать резервную копию определеных данных? | Anticoors | БД в Delphi | 2 | 26.04.2007 14:23 |