哪里有类似资源管理器左边那个有上边框和关闭按钮的面板(100分)

哪里有类似资源管理器左边那个有上边框和关闭按钮的面板

虽然不能完全实现，但可以实现类似效果，即先放一个panel，把docksite设为true,然后把
一个treeview的dragkind设为dock，然后将它dock到panel上。
procedure TForm1.Button1Click(Sender: TObject);
begin
if treeview1.Visible then
treeview1.ManualDock(panel1,nil,alclient)
else
treeview1.Visible := true;
end;