Delphi iOS - 終了ボタンのKeyDownの検出

Question

iOSを使用しているときに、Delphiの仮想キーボードの「完了」ボタンの押下を検出するにはどうすればよいですか？仮想キーボードを閉じた右上隅のボタン。

Answer 1

あなたの質問では、FMX.VirtualKeyboard.iOSユニットを変更する必要があります。例えば、TMessageの子孫を定義するためのユニットを作成

：

unit VirtualKeyboardMessages; 

interface 

uses 
    System.Messaging; 

type 
    TVirtualKeyboardDoneClickedMessage = class(TMessage); 

implementation 

end. 

がFMX.VirtualKeyboard.iOSのコピーを作成し、プロジェクトに保存し、これらのステップは、あなたのソリューションへの道のほとんどを持っている必要がありますフォルダ。例えば、上記ユニットを含むように単位を変更します

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メソッドを追加します。次に

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方法を変更します上記のVirtualKeyboardMessagesユニットを使用する必要があるフォームのTVirtualKeyboardDoneClickedMessageを購読する必要があります。私はあなたのための練習としてそれを残します。

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; 

//フォームに1つのTEditしかない場合、現在のところ適切なソリューションです。しかし、あなたは複数の問題がある場合。そして、あなたがこのケースでは "Showmessage"のビジュアルダイアログを使用している場合、仮想キーボードは隠れていません。