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.运行,大功告成。
© 版权声明
文章版权归作者所有,未经允许请勿转载。
THE END