Delphi iOS - 완료 버튼의 KeyDown 감지

Question

iOS를 사용할 때 Delphi에서 가상 키보드의 "완료"버튼을 어떻게 감지합니까? 가상 키보드를 닫은 오른쪽 위 모서리에있는 버튼입니다.

Answer 1

내 의견에 따라 FMX.VirtualKeyboard.iOS 단위를 수정해야합니다.

unit VirtualKeyboardMessages; 

interface 

uses 
    System.Messaging; 

type 
    TVirtualKeyboardDoneClickedMessage = class(TMessage); 

implementation 

end. 

이 FMX.VirtualKeyboard.iOS의 복사본을 만들고 프로젝트에 저장 :

가 TMessage 자손을 정의하기위한 장치, 예를 만듭니다 :이 단계는 솔루션에 당신에게 대부분의 방법이 있어야합니다 폴더. 그런 다음

procedure TCocoaVirtualKeyboardService.RefreshToolbarButtons; 
var 
    I: Integer; 
    B: UIBarButtonItem; 
    AutoReleasePool: NSAutoReleasePool; 
begin 
    // code snipped for brevity, and to avoid copyright issues 

     //Hide button 
     if FHideButton = nil then 
     begin 
     FHideButton := TUIBarButtonItem.Create; 
     FHideButton.setTitle(StrToNSStr(SEditorDone)); 
     FHideButton.setStyle(UIBarButtonItemStyleDone); 
     FHideButton.setTarget(FKeyboardHandler.GetObjectID); 
     // Following line commented out from original code: 
     // FHideButton.setAction(sel_getUid('HideVirtualKeyboard')); 
     // Following line added: 
     FHideButton.setAction(sel_getUid('DoneButtonClicked')); 
     end; 

    // code snipped for brevity, and to avoid copyright issues 
end; 

:

IKeyboardEvents = interface(NSObject) 
    ['{72D3A7FD-DDE3-473D-9750-46C072E7B3B7}'] 
    // code snipped for brevity, and to avoid copyright issues 

    // Add this method 
    procedure DoneButtonClicked; cdecl; 
    end; 

    TKeyboardEventHandler = class(TOCLocal) 
    strict private type 
    TKeyboardState = (Shown, Hidden); 
    private 
    FKeepFocus: Boolean; 
    // code snipped for brevity, and to avoid copyright issues 

    // Add this method 
    procedure DoneButtonClicked; cdecl; 
    end; 

procedure TKeyboardEventHandler.DoneButtonClicked; 
begin 
    HideVirtualKeyboard; 
    TMessageManager.DefaultManager.SendMessage(Self, TVirtualKeyboardDoneClickedMessage.Create); 
end; 

가 RefreshToolbarButtons 방법을 수정

implementation 

uses 
    System.Classes, System.SysUtils, System.TypInfo, System.Generics.Collections, System.UITypes, System.Types, 
    System.Messaging, System.Math, Macapi.ObjectiveC, Macapi.ObjCRuntime, Macapi.Helpers, 
    iOSapi.CocoaTypes, iOSapi.Foundation, iOSapi.UIKit, iOSapi.CoreGraphics, 
    FMX.Types, FMX.VirtualKeyboard, FMX.Platform, FMX.Forms, FMX.Platform.iOS, FMX.Consts, FMX.Helpers.iOS, 
    // Add this to the uses clause 
    VirtualKeyboardMessages; 

가 IKeyboardEvents 인터페이스와 TKeyboardEventHandler 클래스에 DoneButtonClicked 방법을 추가 : 위의 장치, 예를 포함하는 장치를 수정 위의 VirtualKeyboardMessages 유닛을 사용해야하는 양식의 TVirtualKeyboardDoneClickedMessage에 가입해야합니다. 나는 그것을 당신을위한 운동으로 남겨 둘 것입니다. 양식에 하나의은 TEdit이있는 경우

Answer 2

uses VirtualKeyboardMessages; 
type 
    TMainForm = class(TForm) 
    {...} 
private 
    { Private declarations } 
    MessageManager: TMessageManager; 
    SubscriptionId: Integer; 
end; 

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    MessageManager := TMessageManager.DefaultManager; 
    SubscriptionId := MessageManager.SubscribeToMessage(TVirtualKeyboardDoneClickedMessage, procedure(const Sender: TObject; const M: TMessage) 
begin 
    ShowMessage('Done'); 
end); 
end; 

procedure TMainForm.FormDestroy(Sender: TObject); 
begin 
TMessageManager.DefaultManager.Unsubscribe(TVirtualKeyboardDoneClickedMessage, SubscriptionId); 
end; 

는 // 현재 좋은 솔루션입니다. 그러나 당신은 여러 개 있다면 문제가 있습니다. 그리고 당신이 "Showmessage"이 시각적 대화 상자를 사용한다면 가상 키보드가 숨어 있지 않습니다.