ListView.SearchVisible

[Rusland]

Делаю 

 

ListView.SearchVisible:=true

 

Набираю текст в появившейся панели поиска, список фильтруется.

Как теперь из другой формы отключить фильтр? ListView.SearchVisible:=false прячет панель, но не отменяет фильтрации.

[Rusland]

Из этой темы попробовал сделать так:

function FindSearchBox(const ARootControl: TControl): TSearchBox;
var
  Child: TControl;
begin
  Result := nil;
  for Child in ARootControl.Controls do
    if Child is TSearchBox then
      Exit(TSearchBox(Child));
end;


procedure TFormAdd.SpeedButton1Click(Sender: TObject);
var
  SearchBox: TSearchBox;
begin
  SearchBox:=FindSearchBox(FormMain.ListView1);
  if SearchBox <> nil then
  begin
    SearchBox.Text:='';
  end;
end;

Метод работает.