![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 21.02.2012
Сообщений: 9
|
![]()
делаю замену NumbersOnly вручную:
procedure TForm1.KeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9', #8]) then Key:=#0; end; а хотела: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9', #8]) then Key:=#0; end; Делала обработчик событий в Edit. А почему вышло без Edit1? просто в Form1??? |
![]() |
![]() |
![]() |
#2 | |
Форумчанин
Регистрация: 21.10.2010
Сообщений: 588
|
![]() Цитата:
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681 |
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 21.02.2012
Сообщений: 9
|
![]()
вот код который получился:
procedure TForm1.KeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9', #8]) then Key:=#0; end; вот код который должен быть: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9', #8]) then Key:=#0; end; разница только в названиях процедур, и я не могла понять почему это разница вообще есть. Вот моя ошибка: в обработчике событий в строке OnKeyPress я написала KeyPress, а надо было Edit1KeyPress!!! Во тупая ![]() ![]() |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 29.02.2008
Сообщений: 60
|
![]() Код:
|
![]() |
![]() |
![]() |
#5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Потому что key:=#0; означает отмену нажатия клавиш.
Добавь ее код в условие.
I'm learning to live...
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 29.02.2008
Сообщений: 60
|
![]() Код:
Код:
Код:
Последний раз редактировалось AET; 23.12.2012 в 13:48. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
обработчик события OnError | Randy.Mandy | Microsoft Office Excel | 4 | 05.02.2012 01:20 |
Обработчик события | yardie | Общие вопросы .NET | 3 | 26.03.2011 18:30 |
События в edit (Delphi) | Евгений1 | Помощь студентам | 8 | 08.03.2011 21:34 |
Динамический обработчик события | SKYDOS | Помощь студентам | 2 | 11.04.2008 06:46 |
Обработчик события... | Flash_ | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 12 | 12.03.2007 21:24 |