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

欢迎加入全网最大Delphi 技术交流群 682628230

1.放置一个SplitView

20250312200604422-515ef148bde029b4518fa258f63d8840

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
喜欢就支持一下吧
点赞10 分享