android - 如何处理(Delphi)Android 应用程序中的后退按钮？

Question

如何让我的 Android 应用响应后退按钮？

是否有高级 VCL 的 TApplicationEvents 来处理它，或者我是否需要在这里深入研究低级 Android 特定的东西？

现在，大多数演示应用程序都有一个屏幕上的后退按钮，可以返回到上一个屏幕。按物理按钮似乎总是会退出应用程序，并且在某些情况下会导致访问冲突。

Answer 1

在窗体的OnKey... 事件中，Key 参数在Android 上是vkHardwareBack。例如:

uses
  FMX.Platform, FMX.VirtualKeyboard;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
var
  FService : IFMXVirtualKeyboardService;
begin
  if Key = vkHardwareBack then
  begin
    TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
    if (FService <> nil) and (vksVisible in FService.VirtualKeyBoardState) then
    begin
      // Back button pressed, keyboard visible, so do nothing...
    end else
    begin
      // Back button pressed, keyboard not visible or not supported on this platform, lets exit the app...
      if MessageDlg('Exit Application?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1) = mrOK then
      begin
        // Exit application here...
      end else
      begin
        // They changed their mind, so ignore the Back button press...
        Key := 0;
      end;
    end;
  end
  ...
end;