|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
04.05.2012, 16:32
|
#1 |
|
Регистрация: 04.05.2012
Сообщений: 3
|
Обработка нажатий клавиш во время паузы
Господа, подскажите, пожалуйста, как во время паузы обрабатывать сообщения о нажатии клавиш?
Обработчик нажатия клавиш задаем следующим образом: Application.OnKey "{LEFT}", "StepLeft" Паузу (на 400 млсек) делаем так: t0 = Now Do While (t0 + (1 / 24 / 60 / 60 / 1000) * 400) > Now DoEvents Loop Until или так: t0 = Timer Do While Timer - t0 < 0.4 DoEvents Loop Но в обоих случаях события нажатия клавиш не обрабатываются! В общем виде фрагмент программы должен выглядеть так: Do 'Действия по выводу на лист 'Пауза, во время которой обрабатываются нажатия клавиш Loop Until <условие> Помогите разрешить проблему |
|
|
|
04.05.2012, 16:43
|
#2 |
|
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
попробуйте воспользоваться onTime для организации задержки.
Правильно поставленная задача - три четверти решения.
|
|
|
|
|
04.05.2012, 18:32
|
#3 |
|
Регистрация: 04.05.2012
Сообщений: 3
|
Попробовал onTime. Правда, пришлось поменять алгоритм. При этом если задержка 1 сек и более, то работает нормально. Если же задержка менее 1 сек, то иногда объединяет 2 или 3 итерации цикла в одну. А мне как раз нужна задержка 200 - 400 млсек...
|
|
|
|
|
04.05.2012, 18:43
|
#4 |
|
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Правильно поставленная задача - три четверти решения.
|
|
|
|
|
04.05.2012, 18:59
|
#5 | |
|
Регистрация: 04.05.2012
Сообщений: 3
|
Цитата:
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Глобальный перезват нажатий клавиш. | Диман56 | Общие вопросы C/C++ | 5 | 29.10.2011 19:40 |
| Эмуляция нажатий клавиш | BorisBritva | Общие вопросы Delphi | 1 | 01.11.2010 13:09 |
| симуляция нажатий клавиш | 4321 | Общие вопросы Delphi | 14 | 23.10.2008 23:18 |
| Иммитация нажатий клавиш клавиатуры | chandrasecar | Win Api | 5 | 11.10.2008 12:16 |
| отслеживание нажатий клавиш | Артэс | Win Api | 6 | 14.06.2008 20:02 |
