자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

안녕하세요

 

델파이 RIO버젼으로 안드로이드용 앱을 개발하는데

기존까지는 문제없이 잘 되었는데...버젼업을 하면서

생기는 문제입니다.

 

아래는 소스코드입니다.

-------------------------------------------------------------------------------------

procedure TfMain_Form.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 (TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState)  then

    begin

      FService.HideVirtualKeyboard;

      Key := 0;

      Exit;

    end

    else

    if (FService <> nil) then

    begin

      if MessageDlg('Exit Application?', TMsgDlgType.mtConfirmation,

                                                  [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1) = mrOK then

      begin

          // Exit application here...

          

      end

      else

      begin

 

      end;

        Key := 0;

 

    end;

  end;

-------------------------------------------------------------------------------------

 

상기처럼 하면 왜 사용자에게 묻지 않고

안드로이드 폰에서는 바로 종료가 되는지 알수 없습니다.

 

코드상의 문제인가요...고수님의 답변 부탁드립니다.

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15638
공지 유용한 관련 사이트 관리자2 2014.03.20 54468
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97837
3238 10.4 시드니에서 새로운 프로젝트 시작 오류 [2] file midas 2021.05.25 502
3237 퀵리포트 -> PDF 변환 시 한글 깨짐 현상 질문입니다. [3] 으아앙 2021.06.03 802
3236 ApeSuite 사용법 SSI 2021.06.08 304
3235 Delphi 10.4 버전 맥용으로 컴파일시 오류 발생하는 이유가 궁금합니다. [2] 델포이 2021.06.04 344
3234 mac os 개발 환결 세팅 관련 문의. [2] 델포이 2021.06.03 344
3233 Runtime error 216 at 5005F106 [2] 김동현 2021.05.28 472
3232 Delphi XE10.3의 TLabel이 Transparent가 안되는 문제 질문 [1] DevCK 2021.05.25 4984
3231 firedac 질문입니다 [2] 희망나라 2021.05.19 352
3230 png Image Button에서 Flickering문제 [5] 오늘도좋은하루 2021.05.12 512
3229 10.4 시드니에서 QuickReport Pro 6 이 설치되나요? [23] 왕초보 2020.10.06 2908
3228 Delphi 7 REST Client 개발 문의 [2] DevCK 2021.05.12 814
3227 본사 mypage [1] DHP 2021.05.17 2603
3226 통화목록 관련 [1] 100jk 2021.05.14 7754
3225 XE7에서 bpl 컴포넌트 설치가 안됩니다. [1] 김동현 2021.05.13 448
3224 [마이그레이션] del7 소스를 10.2.3 tokyo prof. 에서 compile 도중 생긴 에러입니다. [2] darwin4078 2021.05.12 317
3223 [BRCC32 Error] "brcc32" exited with code 27. [3] file Dev_기어 2021.05.07 614
3222 IOS 새로고침 드래그시 이슈 delphiman 2021.05.06 232
3221 Android 컴파일 오류 [2] file 초보개발자 2021.04.07 409
3220 FireDAC을 사용한 MySQL관련 입니다. [2] file 오늘도좋은하루 2021.04.28 371