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

← →
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;

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