楼上观点完全正确:application.ProcessMessages;<br>例: while i<10000 do <br> begin <br> application.processMessages;<br> (do other things)<br> end;<br> <br>