Thanks,
tablet: Acer Iconia One 10 16GB Red
It only works in vhHardwareBack.
Delphi-Quellcode:
if (Key = vkMenu) or (Key = sgiUpRightLong) or (Key = vkHardwareBack) or (Key = vkVolumeUp) or
(Key = vkVolumeDown) then
begin
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
if (FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState) then
begin
Exit;
end else
begin
Key := 0;
end;
end;