【玩转控件系列】Style控件组之TscSplitView控件 --制作可伸缩的导航菜单栏

 

敬请期待教程。

1.放置一个SplitView

2.设置属性：

Placement:scsvLeft

Opened:False

OpenWidth:200

CompactWidth:50

BorderStyle:None

Color:$001B1A14

3.放置一个TImageList 

Name:ImageList24

添加若干图片

4.在SplitView上添加scButton

添加8个scButton6

属性设置

Align:alTop ，最有一个为：alBottom

ColorOptions:颜色值分别为：$001B1A14  ，$00514B41

images：刚才添加的ImageList

设置好ImageIndex，HotImageIndex

5.添加一个PageControl1

6.第一个顶端的按钮的点击事件代码：

 scSplitView1.Opened := not scSplitView1.Opened;

第二个按钮的点击事件代码：

scPageControl1.ActivePageIndex := 0;

第三个按钮的点击事件代码：

scPageControl1.ActivePageIndex :=1;

7.运行，大功告成。