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

>>阅读原文<<