delphi - 如何处理关闭事件并使应用程序在Delphi中运行

Question

在CloseQueryEvent中，我为应用程序关闭确认添加了MessageDlg代码，当我在Windows中运行应用程序时，如果我传递CanClose = True，则应用程序将正常运行。但是此messageDialogue在Android中不起作用，请建议我还有其他方法可以处理closeQuery事件。我也看到了How to close android app in Delphi-XE5 Firemonkey application?的示例

Answer 1

模态对话框在移动平台上不起作用。您必须使用将匿名过程作为输入的异步版本，然后在关闭对话框时在该过程内执行所需的操作。例如：

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  MessageDlg('Do you really want to exit?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
    procedure(const AResult: TModalResult)
    begin
      if AResult = mrYes then
        Application.Terminate;
    end
  );
end;