beklexx

http://docwiki.embarcadero.com/RADStudio/Berlin/en/Adding_an_Android_SDK
Больше скажу... я не снимал эти галочки... хз почему, поставилость только sdk, пришлось докидывать ndk))
из 10ки закинь просто в папку C:\Users\Public\Documents\Embarcadero\Studio\18.0\PlatformSDKs...

Так OnChange на то и OnChange ... может вас устроит OnClosePopup ?

ммм... я так понимаю что на форме 5 лежит TRectangle под именем left... бывает, когда переработаешь, отдохнуть вам надо бы... пивка там

на XE5 это работало... где нашёл не помню 
uses FMX.Platform, FMX.VirtualKeyboard ... procedure TFSale.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, lets exit the app... if MessageDlg('Выйти без сохранения?', ... then begin FSale.Close; // Back button pressed CONFIRMED... end else begin Key := 0; // Back button pressed IGNORED... end; end; end; end;