Ошибка в xe6

[Михаил Юрьевич]

Установил XE6 попробовать, и хотел откомпилить проект с xe5 android. Но выскочила ошибка на "FService.VirtualKeyBoardState" Ошибка "Incompatible types: 'Boolean' and 'TVirtualKeyboardState'"
А с чем не совместимы типы?

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); var FService : IFMXVirtualKeyboardService; begin
if Key = vkHardwareBack then
begin
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
if (FService <> nil) and (vksVisible in FService.VirtualKeyBoardState) then
begin
//
end else
begin
if MessageDlg('Хотите выйти?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1) = mrOK then
begin
Halt(0);
end else
begin
Key := 0;
end;
end;
end;
end;

[StriderX]

Сообщение от Михаил Юрьевич

Установил XE6 попробовать, и хотел откомпилить проект с xe5 android. Но выскочила ошибка на "FService.VirtualKeyBoardState" Ошибка "Incompatible types: 'Boolean' and 'TVirtualKeyboardState'"
А с чем не совместимы типы?

Проекта нет, попробую просто угадать: vksVisible объявлен устаревшим\deprecated и просто непонятно откуда подхватился, а писать теперь надо TVirtualKeyboardState.Visible.

[Михаил Юрьевич]

Сообщение от StriderX

Проекта нет, попробую просто угадать: vksVisible объявлен устаревшим\deprecated и просто непонятно откуда подхватился, а писать теперь надо TVirtualKeyboardState.Visible.

То что vksVisible стал просто Visible это я знал , но суть дела не меняется.
Если написать TVirtualKeyboardState.Visible ,то ошибка падает на "Visible"

[StriderX]

Сообщение от Михаил Юрьевич

То что vksVisible стал просто Visible это я знал , но суть дела не меняется.
Если написать TVirtualKeyboardState.Visible ,то ошибка падает на "Visible"

Любопытно было бы посмотреть на проект. Перед отправкой ответа я просто довёл приведённый код до состояния "компилируется" на XE6.