8

私はこのコードを持っています

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 ではアプリケーションが閉じません。私が間違っていることは何ですか？

4

4 に答える 4

13

最後のフォームが閉じられたときにアプリケーションを閉じるのは、Windows の仕様です。Android アプリは引き続き実行されます。

Android でアプリを終了するにはSharedActivity.finish、本体から呼び出しますFMX.Helpers.Android。

于 2013-10-08T14:11:57.727 に答える
0

Halt を呼び出すと、アプリケーションも終了します。

于 2013-10-09T09:16:45.273 に答える