在DELPHI7中不使用任何第三方控件,实现放在工具…

今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:

步骤一:把Win32面板上把CoolBar组件加到窗体上

步骤二:把Additional面板上的ActionMainMenuBar组件加到CoolBar组件上.(注意一定要放在CooBar 组件上)

步骤三:把Win32面板上的PageScroller组件同样加到CoolBar组件上.

步骤四:把Additional面板上的ActionToolBar组件加到PageScrooler组件上(注意放在PageScroolerh 上)

步骤五:把Additional面板上的ActionManager组件加到窗体上

步骤六:把CoolBar组件的AutoSize属性设为True

步骤七:选择ActionManager组件,双击它的的ActionBars属性,在弹出的Editing ActionManager1.ActionBars框中增加两个TActionBarItem,选择第一个TActionBarItem,双击它的Items属性,在弹出的框中增加两个ActionClientItem,把两个ActionClientItem的Caption属性分别设成"文件" ,"编辑", 再在ActionClientItem中的Items属性增加ActionClientItem, 并把它们的Caption属设成"新建","打开"之类的.如果你想在新建里面再出现子菜单,那么就在它的Items属性再增加ActionClientItem,设好Caption内容. 选择第二个TActionBarItem,按照上面所讲的方法同样增加ActionClientItem,并设好Caption属性.

步骤八:选择第一个TActionBarItem, 设它的ActionBar属性为ActionMainMenuBar,选第二个TActionBarItem,设它的ActionBar属性为ActionToolBar.

步骤九:运行程序,相信你已经看到所图所示的效果.致于其它很多属性,读者自己去分析.

祝大家好运,有空大家多交流.QQ:29327700 Email:hk19830113@163.com

上一篇： Delphi中用ICMP探测远程主机状态
下一篇： 一种树型控件在Delphi中的使用方法

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有