ShowModal窗口打開NSOpenPanel將在Delphi FMX中自動關閉

Question

我使用代碼http://jed-software.com/blog/?p=538來允許用戶選擇MAC OSX下的文件夾。它工作正常，如果我在主窗體中放置一個按鈕，並單擊此按鈕打開NSOpenPanel。但是，如果我用ShowModal打開一個模式窗口，那麼在這個模式窗口中放置一個按鈕，點擊這個按鈕打開NSOpenPanel，在NSOpenPanel中選擇文件夾之後，不管我點擊OK或Cancel按鈕，兩者都可以NSOpenPanel和這個模式窗口將被自動關閉。

我很感激任何幫助解決這個問題。

Answer 1

如果Button的ModalResult不等於mrNone和

如果具有的ShowModal形式被打開，

Form2.ShowModal; 

Button1 on Form2

後的程序代碼是在事件Button1Click(...)中執行。

procedure TForm2.Button1Click(Sender: TObject); 
begin 
    OpenDialog1.Execute; 
end; 

當OpenDialog1被關閉時，Form2立即終止。
無論結束OpenDialog1與ok還是cancel。