Форум: "Начинающим";
Текущий архив: 2009.03.01;
Скачать: [xml.tar.bz2];

Вниз

Проверка нажатия кнопки во цикле?   Найти похожие ветки 

← →
Ruslan777   (2009-01-19 09:04) [0]

Народ, подскажите как во время выполнения цикла
For i:=1 to ...

     Sleep(0);
     Application.ProcessMessages;

end;

организовать проверку нажатия клавиш и при нажатии ESC выйти из цикла?

---

← →
MBo ©   (2009-01-19 09:14) [1]

метод-обработчик нажатия выставляет флаг, а в цикле он проверяется и break

---

← →
Сергей М. ©   (2009-01-19 09:15) [2]

if Boolean(GetKeyState(VK_ESCAPE) AND $8000) then ESC_Нажата

---

← →
Юрий Зотов ©   (2009-01-19 09:19) [3]

1. Вводим приватное поле формы Flag: boolean
2. Выставляем свойство формы KeyPreview в True
3. В обработчике события OnKeyPress формы пишем:
Flag := Key = VK_ESCAPE
4. В цикле пишем:

for i := 1 to ...
begin
 if Flag then
 begin
   Flag := False;
   Break;
 end;
 Sleep(0);
 Application.ProcessMessages;
end;


---

← →
Ruslan777   (2009-01-19 10:08) [4]

Громадное спасибо!

---

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

Форум: "Начинающим";
Текущий архив: 2009.03.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c