Скачать: CL | DM;

Как прервать выполнение процедуры нажатием клавишы   Найти похожие ветки 

← →
Skyter ©   (2002-04-04 14:43) [0]

Как прервать выполнение процедуры нажатием клавишы "Esc"

---

← →
Anatoly Podgoretsky ©   (2002-04-04 14:45) [1]

Exit

---

← →
Skyter ©   (2002-04-04 14:52) [2]

Необходимо чтобы при нажатии клавишы Esc , в процессе выполнения процедуры , прекратилось выполнение процедуры или функции, те выполнилась команда exit.
Иначе говоря в процессе выполнения процедуры опрашивать клаву на предмет состояния клавишы Esc.

---

← →
Song ©   (2002-04-04 14:57) [3]

GetAsyncKeyStatus

---

← →
Skyter ©   (2002-04-04 15:10) [4]

Не могу найти процедуру GetAsyncKeyStatus есть тока GetAsyncKeyState . Где ее искать?

---

← →
Song ©   (2002-04-04 15:17) [5]

Это она. Я ошибся, забыл. Извините.

---

← →
Walker ©   (2002-04-05 03:11) [6]

ну это не совсем верно.... правильнее было бы сделать так: при нажатии ESC - вызывается событие... его обработать и установить некотрую переменную в TRUE (например ESC_was_pressed)

а процедура выглядеть должна так:

procedure MyProcedure;
begin
ESC_was_pressed:=FALSE;
while not(ESC_was_pressed) do
begin
// какие-либо действия

Application.ProcessMessages; // для того, чтоб можно было обработать нажатие клавишь, перемещения мыши, окна и т.п.
end;

end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c