本帖  http://delphi.ktop.com.tw/board.php?cid=30&fid=1501&tid=105820

所介紹的 XE5 VistualKeyboard 的三個問題, 所釋出的修改碼在 XE5 上是可以編譯過,
但 XE6 卻無法過, 出現 can not found define 'VKSERROR' 的問題
查證
是由 Fmx.Types 中所定義出來的
但 XE5 對這段是找的到, 可是 XE6 卻不認得, 不知原因在那?

TVirtualKeyboardState = (AutoShow, Visible, Error, Transient);
TVirtualKeyboardStateHelper = record helper for TVirtualKeyboardState
const
vksAutoShow = TVirtualKeyboardState.AutoShow deprecated 'Use TVirtualKeyboardState.AutoShow';
vksVisible = TVirtualKeyboardState.Visible deprecated 'Use TVirtualKeyboardState.Visible';
vksError = TVirtualKeyboardState.Error deprecated 'Use TVirtualKeyboardState.Error';
vksTransient = TVirtualKeyboardState.Transient deprecated 'Use TVirtualKeyboardState.Transient';
end;


第二個問題是
XE5 的 TabControl 拿到 XE6 來開時, 竟然出現 TabCtrl.Align 的 Properity 不存在的問題????

這.....又是發生什麼事了!

在我的XE7 android project裡, virtualkeyboard show / hide 困擾我好久, 只要有輸入的edit , 問題就浮出, 
1. 如何分辨按下 vkHardwareBack, 是要關閉鍵盤還是離開 Form, TabItem, 我分享我的部分程式碼給大家

procedure TfrmMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
var
FService : IFMXVirtualKeyboardService ;(TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState) then
begin
key := 0 ;
FService.HideVirtualKeyboard ; //hide keyboard
exit ;
end;
//
if (TabControl1.ActiveTab = TabItem3) or( TabControl1.ActiveTab=TabItem2) then
begin
Key := 0;
.......................
end ;
2. 如果是在WebBrowser.navigate('http://xx.xx.xx') , 如果有輸入的欄位出現, 而 virtualKeyboard 又同時覆蓋住 要輸入的內容欄位時, 還真的無法克服, 我目前無解, 也找不到相關技術解決, 期待高手解決