void __fastcall TMyThread::Execute()
{
  //程式碼......
        Form1->Close();
} 

引言: 真的沒有更好方法嗎 我目前是在 Form1->Timer1 做真假判斷 李國維 前輩所說方法是我目前所作的方法 謝謝

/*開心的事情別隱藏在心裡,分享給別人知道會更快樂的*/
/*得到新知識別隱藏在心裡,分享給別人了解會更清楚的*/

void __fastcall TMainForm::ThreadTerminate(void)
{
    Close();
}
在使用Thread的時候    TMyThread *thread;
thread = new TMyThread(true); //建立新執行緒的時候是suspend的
thread->FreeOnTerminate = true; //建議使用, 因為你執行緒結束的時候就要關閉視窗了.
thread->OnTerminate = ThreadTerminate; //把OnTerminate指向自訂函式
thread->Resume(); //開始執行    

引言: 你可以做一個自訂的結束函數在主程式裡 然後在new thread之後把 TThread->OnTerminate 這個 Event 指向自訂的結束函式 那在 Thread 結束的時候會去執行這個函式 然後你在函式裡寫Close(); 如:

void __fastcall TMainForm::ThreadTerminate(void)
{
    Close();
}
在使用Thread的時候    TMyThread *thread;
thread = new TMyThread(true); //建立新執行緒的時候是suspend的
thread->FreeOnTerminate = true; //建議使用, 因為你執行緒結束的時候就要關閉視窗了.
thread->OnTerminate = ThreadTerminate; //把OnTerminate指向自訂函式
thread->Resume(); //開始執行    

TThread.Create() 
begin
  ...
  BeginThread(..., @ThreadProc, ...);       // 建立 Thread, 並指定執行 ThreadProc()
  ...
end    function ThreadProc(Thread: TThread): Integer;
begin
  ...
  TThread.Execute() // 實際上是呼叫到 TThreadChild.Execute();
  Result := Thread.FReturnValue // 對應到 ReturnValue, 此為 thead return value
  Thread.FFinished := true;     // Thread 工作完成了
  Thread.DoTerminate;           // 如果 OnTerminate function 有指定, 以 
                                // synchronize 的方式呼叫您的 Terminate function
  if FreeThread then Thread.Free; // 如果 FreeOnTerminate = true, 解構 TThread Class (執行 TThread.Destroy)
  EndThread(Result);            // 傳回 Thread Return value                                
  ...
end

引言:

引言: 你可以做一個自訂的結束函數在主程式裡 然後在new thread之後把 TThread->OnTerminate 這個 Event 指向自訂的結束函式 那在 Thread 結束的時候會去執行這個函式 然後你在函式裡寫Close(); 如:

void __fastcall TMainForm::ThreadTerminate(void)
{
    Close();
}
在使用Thread的時候    TMyThread *thread;
thread = new TMyThread(true); //建立新執行緒的時候是suspend的
thread->FreeOnTerminate = true; //建議使用, 因為你執行緒結束的時候就要關閉視窗了.
thread->OnTerminate = ThreadTerminate; //把OnTerminate指向自訂函式
thread->Resume(); //開始執行    

不過我覺得理論上會有一點不妥... TThread 在建構的時候會去呼叫 BeginThread() 建立一個 Thread, 然後把一個不屬於任何 class 的 function 當成 ThreadFunc 的參數丟進去. ThreadFunc 就是當這個 Thread 在執行的時候, 被執行到的程式. 然後, 這個 function 會去呼叫你的 Thread class 中的 Execuute function, 這是一個 abstract virtual function, 換句話說, 後代一定要改寫這個函式. 這個函式裡面是你的 Thread class 要執行的程式碼. 如果這個function return了, 您的 Thread 也準備要結束了. 就是說:

TThread.Create() 
begin
  ...
  BeginThread(..., @ThreadProc, ...);       // 建立 Thread, 並指定執行 ThreadProc()
  ...
end    function ThreadProc(Thread: TThread): Integer;
begin
  ...
  TThread.Execute() // 實際上是呼叫到 TThreadChild.Execute();
  Result := Thread.FReturnValue // 對應到 ReturnValue, 此為 thead return value
  Thread.FFinished := true;     // Thread 工作完成了
  Thread.DoTerminate;           // 如果 OnTerminate function 有指定, 以 
                                // synchronize 的方式呼叫您的 Terminate function
  if FreeThread then Thread.Free; // 如果 FreeOnTerminate = true, 解構 TThread Class (執行 TThread.Destroy)
  EndThread(Result);            // 傳回 Thread Return value                                
  ...
end

這邊會產生一個問題, 你在 OnTerminate 中去呼叫 Close(); 結束程式, 將產生典型的競速問題. 如果 Thread (應該說 ThreadProc()) 先執行完, 那麼就相安無事. 如果是 Process 先結束, 那麼 thread 就會碰到owner process 已經死亡的情況, 這樣子很容易產生問題. 另外, 這樣子寫也有可能造這個 Thread 沒有被 destroy 掉就結束程序的可能性. 單顆 cpu 的情況, 發生率是不太高. 不過 multi-processor 就很難講了. 建議要使用 Thread, Kernel object, 應該盡量要等待他們正確的回返/結束才結束. 除非迫不得已才動用非常手段.. --- 小葵..小葵有很多的夢想 等待薰下班回家, 並準備晚飯跟洗澡水 薰回家的時候, 對你說一聲 歡迎回家 在休息的日子, 兩個人坐在屋外的走廊上, 品嚐著我親自作的點心 薰如果累了, 替他搥搥肩; 冷了, 和薰一起擠著被爐 但是, 但是... 小葵最大的心願是...成為薰的..成為薰的妻子

 
__fastcall TForm1::TForm1(TComponent *Owner)
        : TForm(Owner)
{
    WindowProc = MyWndProc;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::MyWndProc(TMessage &Message)
{
    if (Message.Msg == FINISH_THREAD/*user define message*/)
    {
                WindowProc = WndProc;                //Unhook 以免下一行lock住message的處裡
                WaitForSingleObject((HANDLE)MyThread->Handle, INFINITE) );
                Application->Terminate();
    }
    WndProc(Message);
}
//---------------------------------------------------------------------------    void __fastcall TestThread::Execute()
{
    //---- Place thread code here ----
        :
        :
        :
        :        //at last
    PostMessage( (HANDLE) Form1->Handle, FINISH_THREAD,        0, 0);  
    this->FreeOnTerminate = true;    }
//---------------------------------------------------------------------------