請問各位先進： Application->ProcessMessages()是什麼意思,而且使用時機為何??

節錄BCB說明檔： void __fastcall ProcessMessages(void); Interrupts the execution of an application so that Windows can process the message queue. Description Call ProcessMessages to permit Windows to process these messages that are currently in the message queue. ProcessMessages cycles the Windows message loop until it is empty and then returns control to the application. 在迴圈中加了這行，程式就不會被迴圈hold住。

謝謝hornacek的回應, 意思是說在程式中加入Application->ProcessMessages()後,會讓程式跑起來更順暢嗎?? 那想請問Application->ProcessMessages()放在程式那裡最適當??

Hello nanaya,    請參考底下連結: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28249 

謝謝nlj859的回應, 連結的內容我已看過,可是仍然不是很清楚的來解答我的問題, 不知能否針對我的問題來作解釋,謝謝!!

nanaya您好 小弟用一個簡單的程式來說明,您可以試試看,比較其中的差別 class="code">void __fastcall TForm1::Button1Click(TObject *Sender) { for (int i=0; i<150000 ; i ) { // Application->ProcessMessages(); Label1->Caption = i; } } 沒有Application->ProcessMessages();時,Label只會顯示最後的149999... 那是因為在迴圈累加的過程中,應用程式來不及去更新Label所致...(也就是 處理OnPaint訊息) 因此它的使用時機便是在程式處理量大之處,如上所述迴圈的累加,就必須放在 每一次進入迴圈時 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

節錄BCB的說明檔： This example uses two buttons that are long enough to accommodate lengthy captions on a form. When the user clicks the button with the caption Ignore Messages, the code begins to generate a long series of random numbers. If the user tries to resize the form while the handler is running, nothing happens until the handler is finished. When the user clicks the button with the caption Process Messages, more random numbers are generated, but Windows can still respond to a series of mouse events, such as resizing the form.    Note:        How quickly these event handlers run depends on the microprocessor of your computer. A message appears on the form informing you when the handler has finished executing.

void __fastcall TForm1::FormCreate(TObject* Sender)    {
  Button1->Caption = "Ignore Messages";
  Button2->Caption = "Handle Message";
}    void __fastcall TForm1::Button1Click(TObject* Sender)
{
  int x, y;
  for (int i = 0; i < 64000; i  )
 {
    Randomize();
    for (int j = 0; j < 64000; j  )
      y = random(j);
    x = random(i);
  }
  Canvas->TextOut(10, 10, "The Button1Click handler is finished");
}    void __fastcall TForm1::Button2Click(TObject *Sender)    {
  int x, y;
  for (int i = 0; i < 64000; i  )
  {
    Randomize();
    for (int j = 0; j < 64000; j  )
    {
      y = random(j);
      Application->ProcessMessages();
    }
    x = random(i);
  }
  Canvas->TextOut(10, 10, "The Button2Click handler is finished");
}

上面有兩個按鈕，一個是沒加Application->ProcessMessages()，一個是有加，你跑過之後應該就了解加Application->ProcessMessages()的作用在哪了...

Hello nanaya, 以樓上的程式來講: "有加"Application->ProcessMessages(); : 處理時間"慢" "沒加"Application->ProcessMessages(); : 處理時間"快" 就這樣差別而已. 如果你運行一個非常耗時的迴圈，那?在這個迴圈結束前，你的程式可能不會回應任何事件，你按按鈕沒有反應，程式設置無法繪製表單，看上去就如同死了一樣，這有時不是很方便，例如於終止迴圈的機會都沒有了。這時你就可以在迴圈中加上這?一句，每次程式運行到這句時，程式就會讓系統回應一下消息，從而使你有機會按按鈕，表單有機會繪製。 相當VB上的DoEvent. 發表人 - nlj859 於 2004/07/13 19:07:55

就 ProcessMessages 字面上的意思來說就是處理 VCL 畫面繪製、滑鼠及鍵盤等訊息(Message)，雖然 Windows 是多工的 OS，但是在一個程式裏面若加入無窮迴圈則此程式就無暇處理上面所說的各項訊息，此時就要主動呼叫 ProcessMessages() 來解決。

大力感謝各位先進的回覆,對此終於有所了解