Страница 1 из 1
Реакция на нажатие клавиш.
Добавлено: 01 ноя 2004, 01:17
Alexander
Подскажите пожалуйста. Есть такая ситуация: в программе, написаной на Delphi, по нажатию кнопки запускается процесс и он может идти очень долго в цикле, как сделать, чтобы в конце выполнения цикла проверялось небыло ли в процессе выполнения цикла нажатия на клавиши на клавиатуре(определённую клавишу, например ESC) и производился выход из цикла (допустим булевская переменная меняла своё значени, а это условие конца выполнения цикла). Как такое реализовать? На Pascal'е это команда KeyPressed, а в Delphi есть аналог?
Заранее благодарен.
Добавлено: 01 ноя 2004, 15:38
Romeo
Нужно ловить WM_KEYDOWN и в обработчике менять флажок. Сам процесс должен выполняться не в цикле, а по таймеру. После каждой итерации таймера должна стоять проверка значения флажка и уничтожение таймера, если потребуется.
Добавлено: 02 ноя 2004, 03:14
Naeel Maqsudov
Есть еще решение - не допустить подобной ситуации.
Если кнопка запускает что-то, выполняющееся долго, то можно на время выполнения этого процесса ей сказать Enabled:=false.
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled:=false;
try
...........
finally
Button1.Enabled:=true;
end;
end;
У этого решения есть еще один плюс - дружественный интерфес. Т.е. помимо вывешивания песочных часов пользователю можно показать, что эта кнопка делает свое дело, и нефиг ее давить
Добавлено: 14 ноя 2004, 15:27
Alexander
Romeo, можно по подробнее рассказать как это сделать?
Добавлено: 15 ноя 2004, 16:41
Romeo
Что именно не понятно?