Application.ProcessMessages用法

標籤：

參考：http://cqujsjcyj.iteye.com/blog/380926

 

　　我想你可能還有點模糊。舉個例子容易明白：假如你的表單上有兩個按鈕，一個“計算”，一個“停止”，

　　如果你的計算是密集運算或複雜處理，當你點了“計算”鈕後，你將發現“停止”按鈕不會響應你的點擊了，也就是說，你無法隨時使計算過程停下來。而倘若你在計算的代碼中加入Application.ProcessMessages，則你的程式就有機會響應其它的事件了。

　　在大量的迴圈運算,又不想使用多線程時,為了電腦在運算時能響應使用者的操作，又不破壞指令執行。所起作用類似於VB中DoEvent方法. 

procedure Delay(MSecs: Longint);//延時函數，MSecs單位為毫秒(千分之1秒)var  FirstTickCount, Now: Longint;begin  FirstTickCount := GetTickCount();repeat  Application.ProcessMessages;  Now := GetTickCount();until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);end;

　　

Application.ProcessMessages用法