清除Firemonkey TListView搜索文本

6St*_*der 2 delphi firemonkey delphi-xe8

ListView1.items.filter := nil;
Run Code Online (Sandbox Code Playgroud)

我知道上面的内容将清除listview的过滤器,但是如果列表视图的搜索是可见的并且输入了某些内容,那么无论如何都要从中清除文本?

Dsm*_*Dsm 6

for I := 0 to ListView1.Controls.Count-1 do
  if ListView1.Controls[I] is TSearchBox then
  begin
    TSearchBox(ListView1.Controls[I]).Text := '';
  end;
Run Code Online (Sandbox Code Playgroud)

(基于DocWiki!)