uniGUI之主窗口折叠UI之uniPanel(32-1)

 测试代码下载：

链接：https://pan.baidu.com/s/1-NCdeoMF9fwhxrPAIW9dew
提取码：2sg0

类似早期的QQ风格，有点简单，不好看，但实用。

a01]基本设置

a02]一开始显示哪个面版
a03]运行时展开/收缩某 个面版

---

a01]基本设置

0]用父uniPanel的Layout为accordion

1]将MainForm的AlignmentControl设为uniAlignmentClient

2]用父uniPanel4的Layout为accordion

3]子uniPanel1，uniPanel2，uniPanel3，上添加uniButton的Align设为alTop

注意修改的是Title

a02]一开始显示哪个面版

uniPanel的 CreateOrder越小越先显示：

a03]运行时展开/收缩某 个面版

procedure TMainForm.UniButton7Click(Sender: TObject);
begin         //panel2展开
  UniSession.AddJS(UniPanel2.JSName+'.expand();');
end;

procedure TMainForm.UniButton8Click(Sender: TObject);
begin      // panel2收缩
UniSession.AddJS(UniPanel2.JSName+'.collapse();');
end;