大家好，幫客戶代 PO 一個 Delphi XE7 Update 1 開發 Android 平板程式時遇到的問題，請教是否有什麼建議可以提供參考?

謝謝!



我在 Delphi XE5 開發 Android 平板程式時，TTextCell 中的 OnApplyStyleLookup及OnKeyDown都可以Work，可是轉換到 Delphi XE7 後都不行了。

請教我要如何改寫



ClientDataSet_ITEM.First;

for iLoop := 0 to ClientDataSet_ITEM.RecordCount-1 do

begin

StringGrid_ITEM.Cells[0,iLoop] := ClientDataSet_ITEM.FieldByName('ITEM').AsString;

StringGrid_ITEM.Cells[1,iLoop] := ClientDataSet_ITEM.FieldByName('ITEMVALUE').AsString;

StringGrid_ITEM.Cells[2,iLoop] := ClientDataSet_ITEM.FieldByName('UNIT').AsString;

StringGrid_ITEM.Cells[3,iLoop] := ClientDataSet_ITEM.FieldByName('ITEMTYPE').AsString;

ClientDataSet_ITEM.Next;

end;

//

for iLoop := 0 to 3 do

begin

for jLoop := 0 to StringGrid_ITEM.Columns[iLoop].ChildrenCount-1 do

begin

(StringGrid_ITEM.Columns[iLoop].Children[jLoop] as TTextCell).OnApplyStyleLookup := StringGridCellStyleChange;

if iLoop = 1 then

begin

(StringGrid_ITEM.Columns[iLoop].Children[jLoop] as TTextCell).OnKeyDown := StyledControlEnterKeyDown;

(StringGrid_ITEM.Columns[iLoop].Children[jLoop] as TTextCell).OnEnter := StringGridOnEnterChange;

end;

end;

end;



procedure StringGridCellStyleChange 是在改變 TTextCell 字體大小及顏色

procedure StringGridOnEnterChange 是當使用者按下平板上的 Enter 時跳下一行。

編輯記錄

因為XE5及XE7 有極大的改變, 包含 prooerity 的設定, event 的觸發等等, 我不是清楚本文的功能, 但依據經驗有可能是觸發的事件有異動了, 或者屬性的改變等等, 是否可以先找找看其他觸發事件會不會正常

不好意思，這問題是我發問給 Qcom

簡單說 stringgrid 當你放入 cell[x,y] 值後會是一個 TextCell 物件，在 Delphi XE5 中我可以對這物件在 On ApplyStyleLookup, On KeyDown, On Enter 放入我要觸發的 procedure 事件。

可是當我 up 至 XE7 後，發現這些事件皆無被觸發，甚至我設定 (Sender as TTextCell).KeyboardType := TVirtualKeyboardType.PhonePad; 也是無效的。



我現在真不知道要怎麼改，google 了好久，一點頭緒也沒有，有沒有那位大大可以幫幫忙，告訴我要怎麼改呢？

編輯記錄

這個問題之前有請Gordon幫忙看過，應該是BUG所以已經反應到Embarcadero原廠的Quality Central，目前只能等原廠去進行修正.
http://qc.embarcadero.com/wc/qcmain.aspx?d=130925