Текущий архив: 2002.07.01;
Скачать: 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 вся ветка
Текущий архив: 2002.07.01;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.022 c
