各位大大好：     請問一下怎樣用程式實現關閉由ShowModal（）Show出的Window，麻煩各位了，

假設 Form2->ShowModal(); 只要在Form2內你的程式碼做完之後加一行 Close(); 就可以了關閉 Form2 了.... 發表人 - malanlk 於 2005/08/22 17:37:33

謝謝大大的回應,但是我這個Form不是Auto-Create的，所以用Close好像不行呀，產生這個Form的程式碼 TForm2 *Form2; Form2=new TForm2(Application); Form2->ShowModal(); delete Form2; Form2=NULL; 我會在Form3的Button的Click事件裏想讓Form2關閉，隱藏也是可以的。 麻煩大大了。

Form2 是 ShowModal, 請問一下 Form3 是由 Form2 產生的吧? Form3 也是 ShowModal 的嗎?

是的，大大，Form3 是由 Form2 產生的，Form3 也是 ShowModal 的，那有什麽解決之道嗎，謝謝大大!

Form3 是在 Form2.ShowModal 產生的 那一定要 Form3 先關閉才有可能 關閉 Form2. 

  TForm3 *Form3;
  Form3=new TForm3(Application);
  Form3->ShowModal();
  delete Form3;
  Form3=NULL;
  Close();

這樣在 Form3 關閉後就會將 Form2 順便關閉了.

謝謝大大，我先試試看。

我想再問一下，如果我又ShowModal而引出了Form4，Form5， 甚至更多，那是不是要到最後一個Form出現，再關閉它，以前產生的一些Form才能Close，如果我想每次出現的Form個數只有一個，有什麽方法呢?還要繼續麻煩您。 PS:我有試過用Show，但是Form一閃就消失了。

Form2,Form3 都加入 OnClose event

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action=caFree; 
}
//------------------------------------
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action=caFree; 
}

呼叫時改為

  TForm2 *Form2;
  Form2=new TForm2(Application);
  Form2->Show();
//-----------------------
  TForm3 *Form3;
  Form3=new TForm3(Application);
  Form3->Show();

因為你設定 Action = caFree; 所以視窗關閉後會自動 Free;