Dicas - Parar um loop pressionando uma tecla

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como encerrar um loop utilizando a tecla ESC.

Parar um loop pressionando uma tecla

 

Existe por exemplo uma opção que é utilizar uma variável global boolean que é alterada no evento OnClick, outra opção, que é a utilizada nesta dica, consiste em ler o estado da tecla no loop, para saber se ela é ou não pressionada:

 

var

  i: integer;

begin

  for i := 0 to 9999999 do

  begin

   Label1.Caption := IntToStr(i);

   {.... corpo principal do loop ...}

   Application.ProcessMessages;

 

   { tecla ESC para o loop }

   if GetKeyState(VK_Escape) and 128=128 then

     break;

  end;

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?