如何在Delphi-XE5 Firemonkey应用程序中关闭Android应用程序？

发布时间：2020-12-15 03:49:57 所属栏目：大数据来源：网络整理

导读：我有这段代码 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 t

我有这段代码

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上关闭.我做错了什么？

解决方法

在最后一个表单关闭时让应用程序关闭是Windows的事情. Android应用将继续运行.

要在Android上关闭应用,请从FMX.Helpers.Android设备调用SharedActivity.finish.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!