如何实现Delphi FireMonkey TPopupColumn组件中缺失的OnSetValue事件处理功能？

本文共计285个文字，预计阅读时间需要2分钟。

在`TPopupColumn(TGrid)`中，修改不会触发`OnSetValue`事件，因为无法从用户设置的值中获取该值（`GetValue`正常工作）。问题已在QualityCentral报告：[http://qc.embarcadero.com/wc/qcmain.aspx?d=113448](http://qc.embarcadero.com/wc/qcmain.aspx?d=113448)

TPopupColumn(TGrid)中的更改不会触发OnSetValue事件,因此我无法从用户设置的值中获取该值(GetValue正常工作).
问题已在QualityCentral： qc.embarcadero.com/wc/qcmain.aspx/qcmain.aspx?d=113448中报告

有没有人找到解决方法？
有没有其他方法可以从TPopupColumn中获取值以便将其与例如OnMouseDown事件相结合？我尝试了TPopupColumn的众多属性但没有效果.

我会很感激任何建议,因为我真的希望将TPopupColumn保留在我的项目中.

我正在使用Delphi XE5和Update 1.

========================解决方案========================= ==

根据Mike Sutton发布的指南,我最终将以下行添加到FMX.Grid.pas文件中的TPopupColumn.CreateCellControl函数.

TPopupCell(Result).OnChange := DoTextChanged;

比我保存了该文件的副本并将其添加到我修复问题的项目中.

创建网格列非常简单.我建议您查看FMX.Grids中的源代码,将其复制到您自己的类中并修复损坏的位.

另外看看monkeystyler.com/guide/Custom-Grid-Columns