PDA

Просмотр полной версии : Реакция на нажатие клавиш.



Alexander
01.11.2004, 01:17
Подскажите пожалуйста. Есть такая ситуация: в программе, написаной на Delphi, по нажатию кнопки запускается процесс и он может идти очень долго в цикле, как сделать, чтобы в конце выполнения цикла проверялось небыло ли в процессе выполнения цикла нажатия на клавиши на клавиатуре(определённую клавишу, например ESC) и производился выход из цикла (допустим булевская переменная меняла своё значени, а это условие конца выполнения цикла). Как такое реализовать? На Pascal'е это команда KeyPressed, а в Delphi есть аналог?
Заранее благодарен.

Romeo
01.11.2004, 15:38
Нужно ловить WM_KEYDOWN и в обработчике менять флажок. Сам процесс должен выполняться не в цикле, а по таймеру. После каждой итерации таймера должна стоять проверка значения флажка и уничтожение таймера, если потребуется.

Naeel Maqsudov
02.11.2004, 03:14
Есть еще решение - не допустить подобной ситуации.
Если кнопка запускает что-то, выполняющееся долго, то можно на время выполнения этого процесса ей сказать Enabled:=false.



procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled:=false;
try
...........
finally
Button1.Enabled:=true;
end;
end;



У этого решения есть еще один плюс - дружественный интерфес. Т.е. помимо вывешивания песочных часов пользователю можно показать, что эта кнопка делает свое дело, и нефиг ее давить :)

Alexander
14.11.2004, 15:27
Romeo, можно по подробнее рассказать как это сделать?

Romeo
15.11.2004, 16:41
Что именно не понятно?