求助 请问如何做这种窗体

Question

类似于 播放器的右边播放列表点上边的>>就会打开 可以看到列表点<< 就会关闭播放列表

Answer 1

放一个panel加个按钮然后改变其宽度

Answer 2

如楼上所说:
prodecure TFrom1.panel1onclick(Sender:Tobject);
 begin
   if Panel1.caption='<' then
   begin
     Panel1.caption='>'
{Change Width Code Or Hide Code}
   end;
   else
   begin
    Panel1.caption='<'
{Change Width Code Or Hide Code}
   end;
end;