Application.ProcessMessages

 //若是有这样一个循环, 是很是可怕的; 由于它完不了, 你得等着.html procedure TForm1.Button1Click(Sender: TObject);post var  spa i: Integer;orm begin  htm for i := 0 to MaxInt do  blog begin    it Text := IntToStr(i);  io end;cl

>>阅读原文<<