macos - ShowModal窗口打开NSOpenPanel将在Delphi FMX中自动关闭

Question

我正在使用代码http://jed-software.com/blog/?p=538允许用户选择MAC OSX下的文件夹。如果我在主窗体中放置一个按钮，然后单击此按钮以打开NSOpenPanel，则效果很好。

但是，如果我使用ShowModal打开模式窗口，则在此模式窗口中放置一个按钮，单击此按钮以打开NSOpenPanel，在NSOpenPanel中选择文件夹后，无论我单击“确定”还是“取消”按钮，NSOpenPanel和此模式都窗口将自动关闭。

感谢您为解决此问题提供的帮助。

Answer 1

如果按钮的ModalResult不等于mrNone且

如果使用ShowModal打开的表单，

 Form2.ShowModal;

Button1 on Form2



在事件 Button1Click(...)中执行了程序代码之后。

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

关闭 OpenDialog1时， Form2立即终止。
以 OpenDialog1或 ok结尾 cancel并不重要。