|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.07.2009, 09:33 | #1 | |
Пользователь
Регистрация: 17.04.2009
Сообщений: 68
|
Долгое нажатие клавиши в KeyDown как одно нажатие
Приветствую всех
У меня такой вопрос: Есть процедура Цитата:
Сорри что так путанно, старалась как можно доходчивей. И еще, почему когда курсор в edit и нажимаешь клавишу "энтер", то появляется звуковой сигнил? Как его отключить, что бы procedure TForm1.EditKeyDown реагировал на нажатие энтера без звука? Большое спасибо за помощь |
|
25.07.2009, 11:39 | #2 | |
Участник клуба
Регистрация: 11.01.2009
Сообщений: 1,917
|
Вводим глобальную переменную, например назовем ее _KeyDown, типом boolean, т.е. _KeyDown:boolean и при создании формы ее обнулим _KeyDown:=false;. Теперь изменим твою процедуру :
Код:
Цитата:
Код:
Код:
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
|
|
25.07.2009, 11:48 | #3 | |
Пользователь
Регистрация: 17.04.2009
Сообщений: 68
|
Цитата:
А со вторым советом я что-то не "вкурила", но сейчас помучаю его. Ведь там будут не только буквы латинского алфавита, а еще и иероглифы Ну всё равно спасибо, и вам, и всем кто не жалеет своего времени на чайников |
|
25.07.2009, 11:53 | #4 |
Участник клуба
Регистрация: 11.01.2009
Сообщений: 1,917
|
Тогда второй пример кода посмотри.
Код:
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
|
25.07.2009, 12:01 | #5 |
Пользователь
Регистрация: 17.04.2009
Сообщений: 68
|
|
15.08.2009, 22:42 | #6 |
Форумчанин
Регистрация: 28.06.2007
Сообщений: 123
|
А у меня такой пример не работает! if Key = #13 then Key := #0; ругается на несовместимость word and char, а просто if Key = 13 then Key := 0; все-равно звук остается((
|
15.08.2009, 23:14 | #7 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
To Kukkk - У Kotofff процедура KeyPress , а у Вас (видимо) KeyDown. А у этих процедур переменная Key имеет разный тип. Обратите внимание на скобки в процедурах.
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
16.08.2009, 00:22 | #8 |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
Вообще по-хорошему никаких флагов не надо, в сообщении WM_KEYDOWN уже есть вся необходимая информация
Код:
пыщь
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нажатие клавиши (Delphi) | VadEr | Помощь студентам | 3 | 08.06.2009 17:00 |
Как зарегестрировать нажатие произвольной клавиши по досом | Артем125 | Общие вопросы C/C++ | 1 | 10.04.2009 22:52 |
В OleContainer документ Word, как в нем контролировать нажатие клавиши? | Djonik | Общие вопросы Delphi | 0 | 16.03.2009 18:38 |
Как перехватить нажатие клавиши Windows? | UnD)eaD)Snake | Win Api | 3 | 16.03.2009 18:21 |
Нажатие клавиши | format | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 05.05.2008 15:25 |