diff --git a/components/lazcontrols/treefilteredit.pas b/components/lazcontrols/treefilteredit.pas index 8d2e0aad2b..a85ed61bcb 100644 --- a/components/lazcontrols/treefilteredit.pas +++ b/components/lazcontrols/treefilteredit.pas @@ -443,12 +443,15 @@ end; procedure TTreeFilterEdit.SetFilteredTreeview(const AValue: TCustomTreeview); begin if fFilteredTreeview = AValue then Exit; - if fFilteredTreeview <> nil then begin + if fFilteredTreeview <> nil then + begin fFilteredTreeview.RemoveFreeNotification(Self); fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@OnBeforeTreeDestroy); end; fFilteredTreeview := AValue; - if fFilteredTreeview <> nil then begin + if fFilteredTreeview <> nil then + begin + Filter := Text; fFilteredTreeview.FreeNotification(Self); fFilteredTreeview.AddHandlerOnBeforeDestruction(@OnBeforeTreeDestroy); end;