FMX TListView 搜索 Search

FMX,FireMonkey，平台框架下TListView控件搜索、过滤、 查找功能确实强大！！

设置SearchVisibe属性为true，就自动显示搜索框，输入文字，就开始检索了，不用写一行代码！！

类似DataSet的Filter属性

这个输入框的内容不能自己控制，属性不可见，找了段代码，可以控制此搜索框

http://codeverge.com/embarcadero.delphi.firemonkey/xe5-listview-search/1057268

{code}
procedure TForm1.SpeedButton3Click(Sender: TObject);

 var
  I: Integer;
  SearchBox: TSearchBox;

begin
  for I := 0 to ListView1.Controls.Count-1 do
    if ListView1.Controls[I].ClassType = TSearchBox then
    begin
      SearchBox := TSearchBox(ListView1.Controls[I]);
      Break;
    end;
  SearchBox.Text:='';
end;

VCL下也可以用此控件。在onInvokeSearch事件中写代码。

procedure TSearchBoxForm.SBInvokeSearch(Sender: TObject);
begin
  if SB.SearchIndicator = sbiText then
    Log('Text: OnInvokeSearch - "' + SB.Text + '"')
  else
    Log('Audio: OnInvokeSearch');
end;