자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 17204
공지 유용한 관련 사이트 관리자2 2014.03.20 56080
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99517
2319 [IoT 세미나] 비콘에 대해 알고 싶습니다. Humphery 2015.09.04 99
2318 [IoT 세미나] 블루투스에 대해 알고 싶습니다. Humphery 2015.09.04 118
2317 [IoT 세미나] 세미나 내용은 좋았는데 실습을 해보지 못해 아쉬워요. Humphery 2015.09.04 72
2316 XE8 모바일 프레임전환시 애니메이션 효과 [4] 가을이다 2015.09.04 287
2315 C/S 시스템을 위한 모바일 개발 DataSnap이 좋은지 REST 웹서비스 가 좋은지? [3] 미스터몽키 2015.09.04 536
2314 TFloatAnimation 효과 문의 [2] 가을이다 2015.09.05 222
2313 MemoryStream 문의입니다 [2] file 최민철 2015.09.08 663
2312 ibxpress200 [1] secret 김상훈 2015.09.09 4
2311 ListBox 사용중 문의 드립니다. [2] file 오광 2015.09.09 147
2310 다국어 지원 관련 XE6 update1 오류 발생 문의 [1] file spirng 2015.09.09 105
2309 [무료 온라인 세미나] 새로운 RAD Studio 10 시애틀: 윈도우 10 혜택을 누리세요! 관리자 2015.09.11 172
2308 [시애틀 출시세미나] 함수,프로시저 상단 또는 유닛파일 헤더에 주석을 자동추가할 수 있는 방법이 있나요? Humphery 2015.09.11 137
2307 [시애틀 출시세미나] FireDAC의 기능을 자세히 살펴보고 싶어요. Humphery 2015.09.11 93
2306 [시애틀 출시세미나] FireDAC으로 MongoDB 연결하는 내용을 안내해 주세요. Humphery 2015.09.11 132
2305 [시애틀 출시세미나] Uses절에 없는 유닛의 함수를 사용하면 구문오류가 나는데요. 자동으로 Uses절에 추가할 수 없나요? Humphery 2015.09.11 205
2304 [시애틀 출시세미나] 제품소개의 권장사항에 XP가 빠져있는데 XP에서도 사용할 수 있나요? Humphery 2015.09.11 87
2303 [시애틀 출시세미나] 안드로이드 서비스를 기기를 재시동할때 자동으로 시작시킬 수 있나요? Humphery 2015.09.11 115
2302 [시애틀 출시세미나] 최근 나온 델파이 기술서적(문법과 컴포넌트 소개)을 알려주세요. Humphery 2015.09.11 238
2301 [시애틀 출시세미나] 델파이 IDE 메뉴 가이드북은 없나요? Humphery 2015.09.11 129
2300 [시애틀 출시세미나] 세미나 내용을 녹화해서 동영상으로 제공해 주세요. Humphery 2015.09.11 275