頂部模態窗體關閉嵌套模態窗體關閉所有其他模態窗體？

Question

當窗體A是模態的，它顯示第二個模態窗體B，並且B的模態結果被設置，B閉合，A也被關閉。

這可怎麼預防？

Answer 1

這是不正確的，在你的代碼中必須有一些其他的問題。設置ModalResult只會影響當前的模態形式。試試這個非常簡單的例子：

• 創建一個新的形式

• 刪除一個按鈕拖到它

• 在按鈕OnClick事件處理程序添加以下代碼：

  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
      with TForm1.Create(Self) do begin 
      if ShowModal = mrCancel then 
       Self.Color := RGB(Random(256), Random(256), Random(256)); 
      end; 
  end; 
  

您會觀察到每個按鈕按下都會創建一個新的模態形式，並且您可以根據需要經常重複此操作。關閉表格會將其ModalResult設置爲mrCancel並重新啓用父表格。要退出應用程序，您需要按照與創建相反的順序逐個關閉所有表單。