注意:XE7 已修正这个问题。
Delphi Firemonkey TListView 提供了搜寻的功能,但在 XE6 以前的版本,可以显示右边的清除按钮,在 XE6 确消失了,这里提供一个修正的方案,供大家参考。
1、放一个 TListView 后,将 SearchVisible 设为 True ,就能看到上方的搜寻功能。
2、运行后,在没有输入任何文字的情况下,不会有右边的清除按钮。
3、输入一些文字后,就能看到右边的清除按钮,。
修正方法:
请将源码 FMX.Edit.pas 复制到自己的工程目录里,再进行修改。
找到TSearchBox.DoChangeTracking 函数,在最后加入一行,如下:
= FResponder <> (X: == EmptyStr) RealignButtonsContainer; //;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。