Delphi 10.4.2 FMX：如何编写用户在android phone 上按return 按钮而不是在消息对话框中选择的情况？

Question

    MessageDlg('Please turn on your gps', TMsgDlgType.mtConfirmation,
    [
      TMsgDlgBtn.mbYes,
      TMsgDlgBtn.mbNo,
      TMsgDlgBtn.mbClose
    ], 0,
    procedure(const AResult: TModalResult)
    begin
      case AResult of
        mrYES: begin
          LIntent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_LOCATION_SOURCE_SETTINGS);
          TAndroidHelper.Context.startActivity(LIntent);
        end;
        mrNo:
          Close;
        mrClose:
          Close;
        mrNone:
          Close;
      end;
    end);

这是我一直在尝试的一些代码片段，我不想让用户在用户单击 phone 上的 return 按钮时继续并关闭应用程序。

Answer 1

感谢大家的帮助。 if-else 案例工作。

    MessageDlg('Please turn on your gps', TMsgDlgType.mtConfirmation,
    [
      TMsgDlgBtn.mbYes,
      TMsgDlgBtn.mbNo
    ], 0,
    procedure(const AResult: TModalResult) begin
      if AResult = mrYES then begin
          LIntent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_LOCATION_SOURCE_SETTINGS);
          TAndroidHelper.Context.startActivity(LIntent);
      end
      else Close;
    end);

Delphi 10.4.2 FMX：如何编写用户在android phone 上按return 按钮而不是在消息对话框中选择的情况？

Delphi 10.4.2 FMX: How to write the case where the user press return button on android phone instead of choice in message dialog box?

delphi

firemonkey

delphi-10.4-sydney