How to close android app in Delphi-XE5 Firemonkey application?
可以将文章内容翻译成中文,广告屏蔽插件可能会导致该功能失效(如失效,请关闭广告屏蔽插件后再试): 由 翻译 强力驱动 问题: I have this piece of code 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; It works perfectly on Windows. Application closes if I choose 'Yes'. However, application does NOT close on Android. What I am doing wrong? 回答1: Having the