如何实现类似新浪论坛那样的导航条

Question

点击可以隐藏和显示。

Answer 1

例如Panel＋TreeView
TreeView覆盖Panel留个边，点击Panel隐藏Panel和TreeView。

Answer 2

很容易做啊
就是放一个Panel+TreeView就可以了，然后响应Panel的OnClick事件改变left的值。
implementation{$R *.dfm}
var BHide:Boolean=True;procedure TForm1.Panel1Click(Sender: TObject);
begin
    if BHide then
    begin
        Panel1.Left:=Panel1.Left-Panel1.Width+10;
        BHide:=False;
    end
    else
    begin
        Panel1.Left:=Panel1.Left+Panel1.Width-10;
        BHide:=True;
    end;
end;
///////////上面代码能够很好实现效果