各位Delphi高手、先進們： 如果我在Form1上有一個Button1,Button1.Click有一個迴圈正在執行，我希望在按Button1.Click之前，跳出另一個Form2(有一ProgressBar1)顯示處理進度,當迴圈執行完時，Form2結束返回Form1,如何做?Help Me!感激不盡!

------
~小弟淺見，參考看看~

A simple way is to call "Application.ProcessMessages" inside your loop and update the progressbar. A better way is to make a thread for the operation. Beware of the unexpected action of the end user in both cases, e.g. clicking over some forms/buttons. So disabling some controls before the loop and re-enable them later.

procedure TForm1.Button1Click(Sender: TObject); var i:integer begin try Form2 := TForm2.create(self); Form2 .show; for i=0 to 100 do begin Form2 .Update; //這裡寫你要處理的事情.... end; finally Form2 .Free; end; end; 發表人 - chih 於 2002/11/15 10:18:14

感謝chih，您的方法我大致上已經了解 至於william您講的方法有二，但是我都不知道如何撰寫，是否可以請您再講詳細一點，或是像chih寫一個Demo，這樣比較容易了解!感激不盡!!

------
~小弟淺見，參考看看~

Using the simple way:

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer
begin
    Form2 := TForm2.Create(self);
    Form2.Show; { cannot ShowModal }
    { disable unecessary controls }
    try
        { start of your loop }
        Form2.Update;
        Application.ProcessMessages;
        { end of your loop }
    finally
        Form2.Free;
        { enable controls }
    end;
end;

william： 請問(1)Application.ProcessMessages這一行指令有何作用?若把Application.ProcessMessages這一行指令mark起來，您的Demo看起似乎和chih的Demo一樣。(2)若使用thread應該如何做?

------
~小弟淺見，參考看看~

引言: 請問(1)Application.ProcessMessages這一行指令有何作用?若把Application.ProcessMessages這一行指令mark起來，您的Demo看起似乎和chih的Demo一樣

channel你好: 試著把 Application.ProcessMessage 這一行指令 mark 起來 然後在執行的時間~~切到別的應用程式(例如: 檔案總管) 馬上再切回來~~你就會知道這一行的效果了 --

引言: (2)若使用thread應該如何做?

以下這個連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=12750 有一個免費的元件，包含 source code 是本站站長熱情提供的 不妨參考看看吧 --

RaynorPao： 您的意思我大概了解，好像就是所謂在背景上Run，因為如果有Application.ProcessMessages這一行，其影像並不會暫留，請問這是否是屬於thread的一種?

------
~小弟淺見，參考看看~

引言: RaynorPao： 您的意思我大概了解，好像就是所謂在背景上Run，因為如果有Application.ProcessMessages這一行，其影像並不會暫留，請問這是否是屬於thread的一種?

channel你好: Application.ProcessMessages 的功用 就和 vb 中的 DoEvent 是相同的意思 主要的目的是不讓 application 的 process 把系統的資源給鎖死(例如: cpu) 因此~~通常我們會把這個敘述加在一個大迴圈裡面 以防止系統的資源被你的 process 獨佔 而沒有時間來做其他的動作(例如: repaint) 你可以嘗試把你的迴圈值增加到 10000 然後把 Application.ProcessMessages mark 掉 系統資源被你的 process 鎖死的現象會更明顯 --

引言:RaynorPao： 您的意思我大概了解，好像就是所謂在背景上Run，因為如果有Application.ProcessMessages這一行，其影像並不會暫留，請問這是否是屬於thread的一種?

Application.ProcessMessages will call the default windows message handler and give chance for handling windows messages. It is still executed in the main thread in this example. There is an demo project (Threads\thrddemo.dpr) comes with Delphi and you may try to study it. Please notice that VCL is NOT thread safe so any changes visually MUST be executed in the main thread.

感謝各位高手、前輩們的回答，獲益良多!

------
~小弟淺見，參考看看~

請教我如何用 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=12750 中提供的元件?我install component的方式也將元件加進了,並且在元件中也有顯示;可運行demo中的測試時報以下錯誤,是不是我的安裝方法不對,請回答,謝謝! MainFrm.pas(21): File not found: 'HKProgressBr.dcu'