Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

Как выйти из цикла по нажатию клавиши   Найти похожие ветки 

 
Alfred ©   (2002-12-12 11:36) [0]

Как выйти из цикла по нажатию клавиши? Возможно это наивный вопрос, но в СИ это делалось элементарно, а понадобилось в Паскале (Delphi 5) и ничего не получается.


 
Song ©   (2002-12-12 11:46) [1]

GetKeyState(), GetAsyncKeyState(), GetConsoleInput()
Для таких вещей используйте Паскаль. В Delphi нелинейное программирование.


 
KSergey ©   (2002-12-12 11:48) [2]

А в каком, интерсно, Си это делалось элементарно? Си - язык. Интересует конкретный компилятор/платформа.
Идет речь и клавиатурных клавишах? Ну как в любом приложении Win32. Например, для Delphi:
1) пишем обработчик KeyPress (или подобного сообщения/события), в котором взводим некий глобальный флаг (напр., уст его в True). Перед циклом флаг сбрасываем (False), внутри цикла делаем Application.ProcessMessages, после которого проверяем состояние флага. Если взвелся - значит произошло событие нажатия клавиши - прерываем цикл.
2) в цикле используем PeekMessage, вылавливая во входной очереди сообщения на вроде WM_CHAR и т.п. Если они там есть - выходим из цикла.


 
KSergey ©   (2002-12-12 11:50) [3]

Уточнение: имеется в виду или 1) или 2)


 
Alfred ©   (2002-12-12 11:56) [4]

Спасибо за оперативные ответы. СИ++ 2.0. Это было давно (под DOS), но программы до сих пор весьма активно эксплуатируются в непрерывном режиме круглые сутки.


 
Alfred ©   (2002-12-12 12:30) [5]

Еще раз спасибо, KSergey! Попробовал по 1-му варианту и все получилось. Использовал KeyPress - цикл заканчивается по нажатию любой клавиши. Использовал KeyDown - цикл можно закончить по нажатию заданной клавиши, например Esc.


 
KSergey ©   (2002-12-12 12:58) [6]

Пожалуйста. Рад, что полегчало.


 
Godness ©   (2002-12-13 21:29) [7]

Вот черт - не успел ... бывает ... :)



Страницы: 1 вся ветка

Текущий архив: 2002.12.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
1-74814
Nord-Ost
2002-12-11 16:22
2002.12.23
Существует ли возможность раскраски строк...


8-74855
lexusU
2002-09-06 09:55
2002.12.23
Где взять исходник DirectSound ?


1-74647
malkolinge
2002-12-11 16:15
2002.12.23
Interface(Сложный вопрос)


14-74910
3d[Power]
2002-11-30 13:15
2002.12.23
Delphi5: Compiler Internal error BC2241


3-74621
diww
2002-12-05 14:32
2002.12.23
Помогите с запросом