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

Question

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

但是，如果我用 ShowModal 打开一个模态窗口，然后，在这个模态窗口中放置一个按钮，单击此按钮打开 NSOpenPanel，在选择 NSOpenPanel 中的文件夹后，无论我单击 OK 或 Cancel 按钮，NSOpenPanel 和这个模态窗口将自动关闭。

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

Answer 1

如果ModalResultButton 的 不等于mrNoneand

如果打开带有 ShowModal 的表单，

 Form2.ShowModal;

Button1 on Form2

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

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

当OpenDialog1关闭时，Form2立即终止。
是否以 或 结尾都OpenDialog1没有ok关系cancel。