修正 XE6 TListView 上方 SearchBok 右边的清除钮显示

注意：XE7 已修正这个问题。

Delphi Firemonkey TListView 提供了搜寻的功能，但在 XE6 以前的版本，可以显示右边的清除按钮，在 XE6 确消失了，这里提供一个修正的方案，供大家参考。

1、放一个 TListView 后，将 SearchVisible 设为 True ，就能看到上方的搜寻功能。

2、运行后，在没有输入任何文字的情况下，不会有右边的清除按钮。

3、输入一些文字后，就能看到右边的清除按钮，。

修正方法：

请将源码 FMX.Edit.pas 复制到自己的工程目录里，再进行修改。

找到TSearchBox.DoChangeTracking 函数，在最后加入一行，如下：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!