Question

我正在使用代码@ http://jed-software.com/blog/?p=538在OSX上打开一个用于选择文件夹的对话框

我正在使用Form2.ShowModal创建表单，在此表单中，我通过按钮调用上述SelectDirectory函数。在ShowModal也被关闭后，立即关闭使用NSOpenPanel创建的表单...表单OnClose事件不会触发，ModalResult { {1}}来电是Form2.ShowModal，因此我无法找到阻止这种不受欢迎行为的方法。不知何故，mrNone (0)结果迫使我的LOpenDir.runModal;关闭

任何帮助都会很棒，谢谢。

Answer 1

您需要在platformservice中设置FRestartModal标志。

LDlgResult := LOpenDir.runModal;
RestartModal;

不幸的是，这有点令人讨厌，因为该标志隐藏在单元的实现部分中的TPlatformCocoa类中。我不喜欢使用RTTI的黑客，但不幸的是我没有找到更好的方法。所以你走了：

procedure RestartModal;
//Hack: Set the FRestartModal flag in TPlatformCocoa
var
  Context: TRttiContext;
  RttiType: TRttiType;
  Field: TRttiField;
  FModalStack: TStack<TObject>;
  FPlatformService: TObject;
begin
  FPlatformService := TObject(TPlatformServices.Current.GetPlatformService(IFMXWindowService));  // trick for getting the MacOS Platformservice
  RttiType := Context.GetType(FPlatformService.ClassType);
  Field := RttiType.GetField('FModalStack');       // get private field using RTTI
  Assert(Field <> nil);
  FModalStack := PPointer(Field.GetValue(FPlatformService).GetReferenceToRawData)^;
  if (FModalStack <> nil) and (FModalStack.Count > 0) then
  begin
    Field := RttiType.GetField('FRestartModal');
    Field.SetValue(FPlatformService, True);
  end;
end;

在Delphi Firemonkey OSX中强制关闭打开NSOpenPanel的ShowModal表单

1 个答案: