Delphi实现自动停靠的菜单
2008-02-23 07:14:40来源：互联网 阅读 ()
本实例制作一个工具栏风格的可以自动停靠的菜单。
在窗体中添加一个TMainMenu组件，并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件，设置它的Align属性值为alTop。最后选中TControlBar组件，然后在组件工具栏中双击TToolBar组件，这样就会把TToolBar组件添加到TControlBar组件上，通过这样的方法向TControlBar上添加两个TToolBar组件，设置TToolBar组件的Menu属性为TMainMenu组件。
设计完成的窗体如图1所示。
图1 主界面
保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。
在程序运行的过程中，可以通过鼠标拖动来改变工具栏风格的菜单的位置，并且可以自动停靠，如图3所示。
图2 程序运行的初始画面
图3 程序运行结果
上一篇： Delphi实现在数据库中存取图像
下一篇： Delphi实现提取可执行文件内部所有图标
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
