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

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

 

敬请期待教程。

1.放置一个SplitView

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

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.运行,大功告成。