TCategoryPanel,TPageControl,TTreeView结合做导航

先上图：

 

左侧treeview的onchange事件的代码为：

  for I := 0 to PageControl1.PageCount-1 do
  begin
    if PageControl1.Pages[I].Caption = BasicSetup_tv.Selected.Text then//这里只写了一个基本设置的treeview  BasicSetup_tv
    begin
      PageControl1.ActivePageIndex := I;
    end;
  end;