更新资料

尽管我的建议已记录在案,但Android和多种形式仍然存在问题.请参阅本文后面的内容.

根本不要调用DisposeOf()或Free. FormClose()和caFree调用是使其工作的关键.

FireMonkey架构师现在已经为此努力了多个版本,终于可以使用了.

来自doc的示例如何创建模式对话框：

procedure MyCurrentForm.MyButtonClick(Sender: TObject);

var

dlg: TMyModalForm;

begin

// Create an instance of a form.

dlg := TMyModalForm.Create(nil);

// Configure the form. For example, give it a display name.

dlg.Caption := 'My Modal Dialog Box';

// Show your dialog box and provide an anonymous method that handles the closing of your dialog box.

dlg.ShowModal(

procedure(ModalResult: TModalResult)

begin

// Do something.

end

);

end;

并释放您的模式对话框：

procedure TMyModalForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := TCloseAction.caFree;

end;

更新资料

OP尝试了此解决方案,但无法正常工作.

调查质量控制时,有报告声称这在移动android平台上无法正常工作：

(您必须登录才能访问它们).

后者解释了正在发生的事情.当模态形式被破坏时,FFocusedControl可能指向被破坏的控件.当ARC试图释放FFocusedControl时,这将导致分段错误. FFocusedControl必须声明为[弱].有关更多详细信息,请参见RSP-9665.