(转)在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单
2009-04-27 20:02
423 查看
作者:未知[获得此文档时候没有作者记录,深感抱歉,本文档全为转载]
今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:
步骤一:把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.
步骤九:运行程序,相信你已经看到所图所示的效果.致于其它很多属性,读者自己去分析.
相关文章推荐
- 在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单.
- 在DELPHI7中不使用任何第三方控件,实现放在工具栏上可
- VC++6 实现界面使用XP风格
- VC++6 实现界面使用XP风格
- 实现侧滑栏,使用第三方控件
- 终于可以不用任何控件作出XP风格的程序了
- VC实现XP风格控件效果(转)
- 程序中控件实现随xp风格的改变而改变
- win32 sdk使用xp风格控件
- 使用manifest实现XP风格界面
- 使用JavaScript实现控件拖动
- 使用manifest文件实现XP风格界面
- SDK使用xp风格控件
- 在 .NET 程序的窗体中使用 XP 风格的控件
- 【转】VC2008在工具栏Toolbar里添加XP风格spin box control控件
- 让在vc6创建的程序中,控件可以随xp风格的改变而变化,不用再程序中添加代码来自己实现~
- android下拉刷新控件之第三方开源控件的使用实现
- 在.NET程序的窗体中使用XP风格的控件
- Android控件使用之FragmentTabHost实现底部菜单
- SDK使用xp风格控件