这种功能不需要控件,编程就可以实现:
在窗体上放一个COOLBAR ,COOLBAR 的Align为alTop,再放一TOOLBAR在COOLBAR上面,在
TOOLBAR 上点击右键新建一TOOLBUTTON
放一Panel1在窗体上,设Align为alleft,放一splitter1在窗体上,设Align为alleft,
宽度为1,放一Panel2在窗体上,设Align为alclient。
定义一全局变量
var
bHide:Boolean;
在toolbutton1的click事件中写入如下代码:
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
if not bHide then
begin
Self.Width :=Panel2.Width;
Panel1.Visible :=False;
bHide:=True;
end
else
begin
Self.Width :=Panel2.Width +Panel1.Width ;
Panel1.Visible :=True;
bHide:=False;
end;
end;