[boobonick]

Здравствуйте, помогите, пожалуйста, разобраться, как мне сделать так, чтобы при нажатии кнопки ESC программа останавливалась? Вот код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key =#27 then
begin

key_esc:=1;


end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
while(key_esc=0) do
begin
sleep(3000);
SetCursorPos(pt.x * 0 + i, pt.y * 0 +j );
i:=i+10;
end;

[NumLock]

Application.ProcessMessages;

[boobonick]

Спасибо огромное!

[Asinkrit]

Вместо Sleep лучше использовать следующий механизм., не будет подвисаний.

Код:

procedure _Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= DWORD(dwMilliseconds);
end;

[einstein]

загрузка процессора на 100% будет выглядеть не красиво

[boobonick]

Не получается у меня, с Application.ProcessMessages; - это осуществимо вообще или лучше здесь потоки использовать? По коду у меня получается, что крутится бесконечный цикл, который должен прерваться при нажатии кнопки Esc.