随便比画了一下，零代码，效果如下。
这是设计图,用到了五个控件，
1.DEV的cxImageList,这个可以随便换，我只是懒得找图标而已。
2.scGPPane
3.scSplitView这个可有可无，看你需求吧，这个控件我之前有写过两篇教程，有兴趣的可以搜索
4.sToolBar工具条
5.scAppPager.也就是我们今天的主角。
unit2是个frame,用与不用与本文关系不大，本文主要介绍TscAppPager控件的基本用法。
TscAppPager控件和TscGPPagecontorl相似，区别在于TscGPPagecontorl的标签和页面是同步增减的，而TscAppPager的页面数量与标签数量没有关系，这两个是分开设置的
TscAppPager控件的重要属性：
可以在控件的右键菜单中增删页面：
selectionStyle用来设置点选标签时的样式：
双击items属性，会弹出一个标签管理器，你可以在这里增加或者删除标签：
如果你只想显示图标，不想显示文字，有两个方案。一个是item的caption设置为空，一个是设置TscAppPager控件的itemWidth属性，使标签的宽度只够显示出图标即可。
标签：控件,标签,delphi,TscAppPager,程序界面,页面,图标 From： https://www.cnblogs.com/yoooos/p/16928521.html