DELPHI7实现XP菜单风格

于 2023-05-20 03:00:32 发布
阅读量551 收藏
点赞数
文章标签： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ok060/article/details/130776748
版权
文章介绍了如何在Delphi7环境下，通过CoolBar、ActionMainMenuBar、PageScroller和ActionToolBar等组件，不依赖第三方控件，手动设置属性和ActionManager来创建可拖动的XP风格菜单，包括添加菜单项和子菜单项的步骤。
摘要由CSDN通过智能技术生成

在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单
今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:

 步骤一:把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.

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

ok060
关注
delphi像“开始”菜单一样漂亮的菜单项实例
javazhuanzai的专栏
02-01 743
====================================================== 注：本文源代码点此下载 ====================================================== http://www.isstudy.com/delphi/2695.html delphi像“开始”菜单一样漂亮的菜单项实例 来源:原创作者
delphi7扁平控件
11-13
FlatStyle .........\vcl_flatstyle .........\.............\vcl_flatstyle7 .........\.............\..............\Packages .........\.............\..............\........\FlatStyle_D5.cfg,382,2001-07-01 .........\.............\..............\........\FlatStyle_D5.dcu,4531,2001-07-01 .........\.............\..............\........\FlatStyle_D5.dof,1240,2001-07-01 .........\.............\..............\........\FlatStyle_D5.dpk,2301,2001-07-01 .........\.............\..............\........\FlatStyle_D5.res,1536,2001-07-01 .........\.............\..............\........\FlatStyle_D6.cfg,390,2002-08-29 .........\.............\..............\........\FlatStyle_D6.dcu,5009,2002-08-29 .........\.............\..............\........\FlatStyle_D6.dof,1421,2002-08-29 .........\.............\..............\........\FlatStyle_D6.dpk,2250,2001-07-01 .........\.............\..............\........\FlatStyle_D6.dsk,2462,2001-07-01 .........\.............\..............\........\FlatStyle_D6.res,1536,2001-07-01 .........\.............\..............\........\FlatStyle_D7.cfg,438,2004-10-26 .........\.............\..............\........\FlatStyle_D7.dcu,6183,2004-10-26 .........\.............\..............\........\FlatStyle_D7.dof,2023,2004-10-26 .........\.............\..............\........\FlatStyle_D7.dpk,2250,2001-07-01 .........\.............\..............\........\FlatStyle_D7.dsk,2568,2002-09-09 .........\.............\..............\........\FlatStyle_D7.res,1536,2001-07-01 .........\.............\..............\Source .........\.............\..............\......\DFS.INC,8673,2001-06-29 .........\.............\..............\......\FlatArrow.res,372,2001-06-29 .........\.............\..............\......\FlatGraphics.dcu,1710,2002-09-09 .........\.............\..............\......\FlatGraphics.pas,2168,2001-06-29 .........\.............\..............\......\FlatSound.res,71508,2001-06-29 .........\.............\..............\......\FlatUtilitys.dcu,11988,2002-09-09 .........\.............\..............\......\FlatUtilitys.pas,11687,2001-06-29 .........\.............\..............\......\HSLUtils.dcu,3209,2002-09-09 .........\.............\..............\......\HSLUtils.pas,4174,2001-06-29 .........\.............\..............\......\TFlatAnimationUnit.dcu,15066,2002-09-09 .........\.............\..............\......\TFlatAnimationUnit.pas,12001,2001-06-29 .........\.............\..............\......\TFlatAnimWndUnit.dcu,9884,2002-09-09 .........\.............\..............\......\TFlatAnimWndUnit.pas,6336,2001-06-29 .........\.............\..............\......\TFlatButtonUnit.dcu,28259,2002-09-09 .........\.............\..............\......\TFlatButtonUnit.pas,24710,2001-06-29 .........\.............\..............\......\TFlatCheckBoxUnit.dcu,20650,2002-09-09 .........\.............\..............\......\TFlatCheckBoxUnit.pas,15453,2001-06-29 .........\.............\..............\......\TFlatCheckListBoxUnit.dcu,27040,2002-09-09 .........\.............\..............\......\TFlatCheckListBoxUnit.pas,25105,2001-06-29 .........\.............\..............\......\TFlatColorComboBoxUnit.dcu,27520,2002-09-09 .........\.............\..............\......\TFlatColorComboBoxUnit.pas,19775,2001-06-29 .........\.............\..............\......\TFlatComboBoxUnit.dcu,21667,2002-09-09 .........\.............\..............\......\TFlatComboBoxUnit.pas,13785,2001-06-29 .........\.............\..............\......\TFlatDesignRegister.dcu,6690,2001-07-01 .........\.............\..............\......\TFlatDesignRegister.pas,5137,2001-07-01 .........\.............\..............\......\TFlatEditUnit.dcu,17400,2002-09-09 .........\.............\..............\......\TFlatEditUnit.pas,10760,2001-06-29 .........\.............\..............\......\TFlatGaugeUnit.dcu,10185,2002-09-09 .........\.............\..............\......\TFlatGaugeUnit.pas,7556,2001-07-01 .........\.............\..............\......\TFlatGroupBoxUnit.dcu,14451,2002-09-09 .........\.............\..............\......\TFlatGroupBoxUnit.pas,10964,2001-06-29 .........\.............\..............\......\TFlatHintUnit.dcu,15818,2002-09-09 .........\.............\..............\......\TFlatHintUnit.pas,12646,2001-06-29 .........\.............\..............\......\TFlatListBoxUnit.dcu,25421,2002-09-09 .........\.............\..............\......\TFlatListBoxUnit.pas,22127,2001-06-29 .........\.............\..............\......\TFlatMaskEditUnit.dcu,16638,2002-09-09 .........\.............\..............\......\TFlatMaskEditUnit.pas,9655,2001-06-29 .........\.............\..............\......\TFlatMemoUnit.dcu,14856,2002-09-09 .........\.............\..............\......\TFlatMemoUnit.pas,8473,2001-06-29 .........\.............\..............\......\TFlatPanelUnit.dcu,10308,2002-09-09 .........\.............\..............\......\TFlatPanelUnit.pas,4805,2001-06-29 .........\.............\..............\......\TFlatProgressBarUnit.dcu,12657,2002-09-09 .........\.............\..............\......\TFlatProgressBarUnit.pas,11030,2001-06-29 .........\.............\..............\......\TFlatRadioButtonUnit.dcu,20512,2002-09-09 .........\.............\..............\......\TFlatRadioButtonUnit.pas,15276,2001-06-29 .........\.............\..............\......\TFlatRegister.dcr,11732,2001-06-29 .........\.............\..............\......\TFlatRegister.dcu,3463,2002-09-09 .........\.............\..............\......\TFlatRegister.pas,1324,2001-06-29 .........\.............\..............\......\TFlatScrollbarUnit.dcu,33164,2002-09-09 .........\.............\..............\......\TFlatScrollbarUnit.pas,31957,2001-06-29 .........\.............\..............\......\TFlatScrollbarUnit.res,9996,2001-06-29 .........\.............\..............\......\TFlatSoundUnit.dcu,3106,2002-09-09 .........\.............\..............\......\TFlatSoundUnit.pas,1820,2001-06-29 .........\.............\..............\......\TFlatSpeedButtonUnit.dcu,24834,2002-09-09 .........\.............\..............\......\TFlatSpeedButtonUnit.pas,22668,2001-06-29 .........\.............\..............\......\TFlatSpinButtonUnit.dcu,14577,2002-09-09 .........\.............\..............\......\TFlatSpinButtonUnit.pas,9502,2001-06-29 .........\.............\..............\......\TFlatSpinEditUnit.dcu,27146,2002-09-09 .........\.............\..............\......\TFlatSpinEditUnit.pas,16383,2001-06-29 .........\.............\..............\......\TFlatSplitterUnit.dcu,15292,2002-09-09 .........\.............\..............\......\TFlatSplitterUnit.pas,10697,2001-06-29 .........\.............\..............\......\TFlatTabControlUnit.dcu,21602,2002-09-09 .........\.............\..............\......\TFlatTabControlUnit.pas,19674,2001-06-29 .........\.............\..............\......\TFlatTitlebarUnit.dcu,10441,2002-09-09 .........\.............\..............\......\TFlatTitlebarUnit.pas,6386,2001-06-29
Delphi 7皮肤控件VCLSkin 5.60的使用
wozengcong的专栏
07-28 7443
VCLSkin是一个能够用于创建Delphi/C++ Builder应用程序美化界面的皮肤组件。它允许允许软件开发人员不用修改程序代码便把软件界面变得非常漂亮。它的美化支持窗体和控件和菜单。VCLSkin同时也提供了大量高质量的skin(皮肤)让你应用于你的程序。 官方网站：http://www.link-rank.com / CSDN下载地址：http://downloa
delphi使用Panel控件布局详解【转】
热门推荐
chengquan17的专栏
09-24 1万+
讲解delphi7利用panel控件的进行布局，平时我用panel都是用于布局，也不知道有高手用于其他方面没有？<br />       看看下面这个布局模式、上下左右中都有了，看了以后是不是对panel布局有点兴趣了？布局以后可以随窗口大小的变化，而布局部分也随之放大缩小。<br />      顶部、底部空间左右宽度随窗口大小而变化；<br />      左部、右部空间上下高度随窗口大小而变化；<br />      中部控件则左右、上下都同时随窗口大小变化而变化。<br /> 下面我们一起来布局吧：
Delphi7网络聊天工具，UI美化
weixin_42436080的博客
05-27 511
Delihi7开发的网络聊天工具，引用IdTCPClient、IdTCPServer控件，网上牛人的Code，自己修改了一下UI，图片也是微信之类的，仅供个人学习使用哦，UI如下，源码下载地址: 打开NetServer.exe，设置好端口，点击"启动"即可. 2. 打开NetClient.exe, 填写好服务器IP，端口，昵称，点击"登录"即可，左边"人员列表"为登录在线的客户端数量以及具体昵称，中间上半部分为聊天记录，下半部分填写聊天消息，勾选"广播消息"，则所有人均可收到消息. ...
XP菜单控件源码.zip_XP_delphi TXPme_delphi txpmenu_菜单控件_菜单源码
09-19
《Delphi XP菜单控件源码解析与应用》 Delphi作为一款强大的Windows应用程序开发工具，因其优秀的可视化设计和高效的编程语法，深受开发者喜爱。在众多控件中，菜单控件是用户界面不可或缺的一部分，它提供了简洁...
Office XP风格菜单控件 XPMenu的Delphi实现
文件名“***.txt”可能包含了文件的下载链接或安装说明等文本信息，而“XP菜单 XPMenu”则明确指出了压缩文件中的主要内容，即XP Menu控件。在软件开发中，控件通常会打包为安装包或压缩包供开发者下载和使用。
XP菜单 XPMenu.rar_Menu_delphi menu_pop_xp menu_xpmenu
09-20
"www.pudn.com.txt"可能是提供下载来源或版权信息的文本文件，而"XP菜单 XPMenu"可能包含了控件的安装包或者示例工程，供开发者研究和学习。 总的来说，XPMenu是一款强大的Delphi组件，它为开发者提供了构建Office ...
delphi 好用的控件 XP菜单
08-25
5. **兼容性**：虽然XP菜单风格源自Windows XP，但大多数此类控件已经过优化，可以在Windows Vista、7、8及10等现代操作系统上正常工作，保持良好的兼容性。 6. **性能优化**：好的XP菜单控件会考虑到性能问题，尽...
xpMenu XP效果 菜单.rar_XPMenu Delphi_xp _Button delphi_xpmenu
09-14
XPMenu和XPButton是两个非常重要的组件，它们为Delphi应用程序提供了Windows XP风格的菜单和按钮效果，显著提升了用户的交互体验。本文将深入探讨这两个组件的原理、实现方式以及在实际项目中的应用。 首先，让我们...
DELPHI开发精美菜单
01-19
DELPHI开发的精美菜单 示例，喜欢的就定一下咯！
MySave2.zip
06-10
附件内容为SharedPreference相关代码，包括SPUtils.博客地址：https://blog.csdn.net/qq_35698774/article/details/106669945
用Delphi制作个性化的菜单
zgqtxwd的专栏
04-30 1034
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格菜单.
net0r的专栏
07-22 960
步骤一:把Win32面板上把CoolBar组件加到窗体上 步骤二:把Additional面板上的ActionMainMenuBar组件加到CoolBar组件上.(注意一定要放在CooBar 组件上) 步骤三:把Win32面板上的PageScroller组件同样加到CoolBar组件上. 步骤四:把Additional面板上的ActionToolBar组件加到PageScrooler组件上(注意放在
【Android UI设计与开发】8.顶部标题栏（一）ActionBar 奥义·详解
02-27 2581
一、ActionBar介绍 　　在Android 3.0中除了我们重点讲解的Fragment外，Action Bar也是一个非常重要的交互元素，Action Bar取代了传统的tittle bar和menu，在程序运行中一直置于顶部，对于Android平板设备来说屏幕更大它的标题使用Action Bar来设计可以展示更多丰富的内容，方便操控。 二、ActionBar的功能 　...
用Delphi制作个性化的菜单 (转)
csd3176的博客
12-12 397
用Delphi制作个性化的菜单 (转)[@more@] XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" /> 用Del...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ok060

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值