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

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

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

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

修正 XE6 TListView 上方 SearchBok 右边的清除钮显示_第1张图片

 

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

修正 XE6 TListView 上方 SearchBok 右边的清除钮显示_第2张图片

 

3、输入一些文字后,就能看到右边的清除按钮,在还没有修正前,是看不到这个清除按钮的

修正 XE6 TListView 上方 SearchBok 右边的清除钮显示_第3张图片

 

修正方法:

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

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

procedure TSearchBox.DoChangeTracking;
var
  Lower: string;
begin
  inherited;
  Lower := LowerCase(Text.Trim);
  if FResponder <> nil then
    FResponder.SetFilterPredicate(
      function(X: string): Boolean
      begin
        Result :=
          (Lower = EmptyStr) or
            LowerCase(X).Contains(Lower);
      end);
{+++>}RealignButtonsContainer; // 加入这一行
end;

 

你可能感兴趣的:(ListView)