TfgVirtualKeyboard [TfgVirtualKeyboard] Как узнать состояние клавиатуры TfgVirtualKeyboard?

[Antonyan]

Добрый день !

 

Как при использовании компонента TfgVirtualKeyboard определить состояние клавиатуры (Show или Hide) ?

[ruslan]

можно вот так:

 

TKeyBoard = class
    Service: IFMXVirtualKeyboardService;
    constructor Create;
    function Showing: Boolean;
  end;

var
  keyBoard: TKeyboard;

{ TKeyBoard }

constructor TKeyBoard.Create;
begin
  inherited Create;

  TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService,
     IInterface(Service));
end;


function TKeyBoard.Showing: Boolean;
begin
  Result:= ( Service <> nil ) and ( TVirtualKeyboardState.Visible in Service.VirtualKeyBoardState )
end;

 

на старте сделать

keyBoard:= TKeyBoard.Create;

 

и где нужно смотреть

keyBoard.Showing

 

а события появления\скрытия клавы ловить на 

TForm.OnVirtualKeyboardShown

TForm.OnVirtualKeyboardHidden

[Brovin Yaroslav]

В новой версии для XE8 в TfgVirtualKeyboard добавлено новое read-only свойство Visible.

[estra]

А где скачать новую версию?

[Brovin Yaroslav]

Новая версия появится вместе с выпуском XE8.

 

Для себя локально можете просто опубликовать свойство в FGX.VirtualKeyboard.TfgCustomVirtualKeyboard:

public
  property State: TfgVirtualKeyboardVisible read FVKLastState;