Объявил FKService в var, все равно ошибка в двух последних строках с FKService:
procedure TFormMain.showKeyboard(Sender: TObject);
var
FService, FKService: IFMXVirtualKeyboardService;
begin
{$IFDEF MSWINDOWS}
exit;
{$ENDIF}
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
if (FService <> nil) then
begin
if not (TVirtualKeyBoardState.Visible in FService.VirtualKeyBoardState) then
FService.ShowVirtualKeyboard(TFmxObject(Sender));
end;
if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardToolbarService, IInterface(FKService)) then
begin
FKService.SetHideKeyboardButtonVisibility(False);
FKService.SetToolbarEnabled(False);
end;
end;
Ааа, я понял, нашел ваш ответ в другом вопросе, как я понял это для iOS. Просто убрал эти строки.
В общем ваше решение работает на Edit'ах и Memo, но как быть с ComboEdit, DateEdit?