[개발/delphi] 키를 눌러 반복문 종료하기

[개발/delphi] 키를 눌러 반복문 종료하기


OnClick 이벤트에 글로벌 변수를 사용해서 처리할 수 있고 loop 안에서 키 상태값을 읽어서 처리할 수도 있다.

 var

   j : integer;

 begin

   for j:=0 to 9999999 do

   begin

    Label1.Caption := IntToStr(j) ;

    {.... loop main body here ...}

    Application.ProcessMessages;

 

    {ESC key stops the loop}

    if GetKeyState(VK_Escape) AND 128 = 128 then break;

   end;

 end;