如何关闭Delphi-XE5防火墙应用程序中的android应用程序？

Question

我有一段代码

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  msg: String;
begin
  msg := 'Do you really want to exit?';

  if MessageDlg(msg, TMsgDlgType.mtConfirmation,
    [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrNo then
    CanClose := False
  else
    CanClose := True; { FIXME: don't want to work on Android }
end;

它在Windows上运行得很好。如果选择“是”，应用程序将关闭。然而，应用程序并没有在Android上关闭。我做错什么了？

Answer 1

在关闭最后一个窗体时关闭应用程序是Windows的事情。Android应用程序将继续运行。

要关闭安卓系统上的应用程序，请从SharedActivity.finish部门打电话给FMX.Helpers.Android。

Answer 2

uses 
  FMX.Platform.Android;

procedure TForm2.SpeedButton1Click(Sender: TObject); 
begin 
  MainActivity.finish; 
end; 

Answer 3

我试过所有的组合。

 - SharedActivity.Finish - NOT WORKING FOR ME
 - MainActivity.Finish - NOT WORKING FOR ME
 - Application.MainForm.DisposeOf - NOT WORKING FOR ME

这是对我有用的：

 FreeAndNil(Application);