Splitter怎么做出如下效果：带一按钮，单击可以让Splitter或变成出示设置最大宽度，或完全隐没？

Question

如题，很多网页（mop就曾见过）都有这个功能，点一下，完全缩回去，再点一下，又恢复过来，好像有第三方控件，但是安装比较麻烦，单纯delphi自带的控件能不能实现这个效果？

Answer 1

效果就是falsh2004、MS VS.net2003的编辑界面那样的东西。不是停靠窗体那种，是有个小图钉按钮，点一下定住，再点一下缩回去。
很多网站都有这种效果，csdn左边那个树形也是这种效果么。

Answer 2

我只是听说有第三方控件可以用，我嫌麻烦，所以没有细问，只想用现成的东西来做
我现在实现了类似效果，但是没有小按钮，而且是用也不是很方便，code如下
procedure TForm.Splitter1Moved(Sender: TObject);
begin
  If (Splitter1.Left <= 10) then
  begin
    Splitter1.Left := Splitter1.MinSize;
  end
  else begin
    Splitter1.Left := 1;
  end;
end;
其中，Splitter1.MinSize设置为你想要的宽度大家集思广益，看能不能实现我想要的效果呢？

Answer 3

DevExpress ExpressBar Suite v5.5.1 Full Sourcehttp://www.2ccc.com/article.asp?articleid=2546
Delphi and C++Builder控件（含完整源码），用于创建工具栏、菜单、浮动窗口(docking)等。

Answer 4

我想这种东西并不是用TSplitter实现的，而是用TPanel之类的实现的。