在Delphi FireMoney OSX中强制关闭打开NSOpenPanel的ShowModal表单 [英] ShowModal form that opens NSOpenPanel is force closed in Delphi Firemonkey OSX

问题描述

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

我正在使用Form2.ShowModal创建一个表单，并在该表单上通过按钮调用上面的SelectDirectory函数。当NSOpenPanel也关闭时，用ShowModal创建的表单立即关闭...FormsOnClose事件不会触发，而Form2.ShowModal调用的ModalResult是mrNone (0)，因此我还没有找到一种方法来阻止这种不需要的行为。不知怎么的，LOpenDir.runModal;结果正迫使我的Form2关闭

任何帮助都是非常好的，谢谢。

推荐答案

需要在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 FireMoney OSX中强制关闭打开NSOpenPanel的ShowModal表单的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！