在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单.

原创 2004年06月10日 17:01:00

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

步骤一:把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,把两个ActionClientItemCaption属性分别设成"文件" ,"编辑", 再在ActionClientItem中的Items属性增加ActionClientItem, 并把它们的Caption属设成"新建","打开"之类的.如果你想在新建里面再出现子菜单,那么就在它的Items属性再增加ActionClientItem,设好Caption内容.  选择第二个TActionBarItem,按照上面所讲的方法同样增加ActionClientItem,并设好Caption属性.

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

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

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

 

Delphi 中 CoolBar 和 ToolBar、菜单的集成应用

    CollBar 类似于 IE 菜单条、工具条的功能。    拖放一个 CoolBar 控件,建立 Band 带条。    拖放 ToolBar 控件,会自动停靠在 CoolBar 中,但是不在...
  • zhangking
  • zhangking
  • 2007年10月18日 20:15
  • 7259

(转)在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单

 作者:未知[获得此文档时候没有作者记录,深感抱歉,本文档全为转载]   今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:...
  • liuyun2008
  • liuyun2008
  • 2009年04月27日 20:02
  • 224

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

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 10:45
  • 125

Delphi 7 下自动实现 xp 风格的简单办法

以 Delphi 开发的程序运行在 xp 下时无法自动应用 xp 皮肤风格,  在网上查资料要达到程序自动适应 xp 风格效果很难, 而且大多都是使用一堆外部控件才能达到这样的效果.今天突然发现,  ...
  • helloqiner
  • helloqiner
  • 2005年11月28日 14:25
  • 1571

Delphi中菜单与工具栏按钮的状态控制

    在好多的桌面应用程序中,会使用到菜单和工具栏按钮,不同的用户登录到应用系统中会依据其权限显示相应的菜单与工具栏按钮,在显示出来的菜单与按钮中又会根据程序的状态来设置其有效性。举个简单的例子,通...
  • chris_mao
  • chris_mao
  • 2007年10月23日 15:01
  • 4113

VC/MFC 工具栏设计-CToolBar使用

工具栏中包含了一组用于执行命令的按钮,每个按钮都用一个图标来表示。当单击某个按钮时,会产生一个相应的消息,对这个消息的处理就是按钮的功能实现。将菜单中常用的功能放置在工具栏中,这样可以方便用户操作,省...
  • qq_28337005
  • qq_28337005
  • 2016年06月17日 17:16
  • 1792

如何实现菜单的拖拽

 为了让菜单支持拖拽,需要做:1、为菜单添加MNS_DRAGDROP风格MENUINFO Info ;Info.cbSize = sizeof(MENUINFO) ;Info.fMask = MIM_...
  • lbird
  • lbird
  • 2006年11月09日 17:13
  • 2513

Android中工具栏菜单使用示例

Android中工具栏菜单使用示例
  • Gaugamela
  • Gaugamela
  • 2017年02月21日 10:19
  • 562

XP系统删除任务栏上多余的栏,修复任务栏的方法.

症状:XP系统,在任务栏出现怪事,一般地我们的任务栏都是分为三部分,左边为快速启动,右 边为语言栏,中间为已打文件夹或IE的任务栏,但我这里的中间部分被为两部分,都是显示已打文件夹或IE的任务栏,比喻...
  • 78hgdong
  • 78hgdong
  • 2006年09月22日 08:45
  • 18410

Ios中可拖动的浮动菜单实现

实现一个可拖动的浮动菜单,效果如下: 这个设置图标是可以全屏拖动的,点击一下,可以出现一排设置按钮,可以用来进行功能的开关切换。 废话不多说了,上代码: // // DragMenuV...
  • shenyi0106
  • shenyi0106
  • 2015年07月28日 16:06
  • 1383
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单.
举报原因:
原因补充:

(最多只允许输入30个字)