Определить источник ввода символов

[Евгений Корепов]

Delphi XE8, Android.

Возможно ли определить источник ввода символов в  TEdit? Т.е. откуда приходит ввод - виртуальная клавиатура или внешняя usb или блютус клавиатура (в моём случае это сканеры штрих кодов)

[Alex Bozhko]

События формы OnVirtualKeyboardHidden и OnVirtualKeyboardShown. Нет видимой Virtual Keboard, - нет и ввода с нее.

[Евгений Корепов]

События формы OnVirtualKeyboardHidden и OnVirtualKeyboardShown. Нет видимой Virtual Keboard, - нет и ввода с нее.

Virtual Keboard как раз есть и видима. Так что не вариант.  Кстати события OnVirtualKeyboardHidden и OnVirtualKeyboardShown в XE8 работают не стабильно, иногда с секундными задержками, иногда вообще забывают срабатывать. 

Видимость лучше проверять с помощью

function TFormMain.KeyboardVisible : Boolean;var Keyboard: IFMXVirtualKeyboardService;
begin
  Result:=False;
  if TPlatformServices.Current.SupportsPlatformService( IFMXVirtualKeyboardService, IInterface( Keyboard ) ) then
    Result:=TVirtualKeyboardState.Visible in Keyboard.GetVirtualKeyBoardState;
end;