(19)Lazarus学习之TreeFilterEdit1过滤TreeView1数据，ShellTreeView1

与(18)Lazarus学习ListViewFilterEdit1过滤ListView1数据 类似

1]界面上添加一个TreeView1，双击 添加好 树结点

 2]拖一个TreeFilterEdit1到界面上，设置它的FilteredTreeview

 可以设置是不是大小写 敏感 

---

 

 最好设置它的Text为空，这样 一开始就可以看到所有树结点

 

procedure TForm1.FormCreate(Sender: TObject);
begin
    TreeView1.FullExpand;   //一开始全部 展开 所有结点
end;

 同样适用于ShellTreeView1，但因为ShellTreeView1结点太多，容易出现 问题，不建议使用。

获得选中结点名 

//用键盘操作
procedure TForm1.TreeView1KeyPress(Sender: TObject; var Key: char);
begin
    if // (key=#13) and
     (TreeView1.Selected <> nil ) then begin
      TreeFilterEdit1.Text:= TreeView1.Selected.Text;
  end;
end;