Delphi如何處理在進行大量循環時，致使的應用程序沒有響應的狀況

通常用在比較費時的循環中，每每致使應用程序沒有響應，此時在比較費時的程序體中加入Application.ProcessMessages便可解決，該語句的做用是檢查並先處理消息隊列中的其餘消息。

     例如，在以下的程序中，加入該語句，則在程序運行過程當中能夠隨便拖動窗口。

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  for i := 0 to 500000 do 
  begin 
    Canvas.TextOut(10, 10, IntToStr(i)); 
    Application.ProcessMessages; 
  end; 
end; 

      該程序在Delphi 10.1下測試過，沒有問題。