本实例制作一个工具栏风格的可以自动停靠的菜单。
在窗体中添加一个TMainMenu组件，并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件，设置它的Align属性值为alTop。最后选中TControlBar组件，然后在组件工具栏中双击TToolBar组件，这样就会把TToolBar组件添加到TControlBar组件上，通过这样的方法向TControlBar上添加两个TToolBar组件，设置TToolBar组件的Menu属性为TMainMenu组件。
设计完成的窗体如图1所示。
图1 主界面
保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。
在程序运行的过程中，可以通过鼠标拖动来改变工具栏风格的菜单的位置，并且可以自动停靠，如图3所示。
图2 程序运行的初始画面
图3 程序运行结果
上一篇： Delphi实现在数据库中存取图像
下一篇： Delphi实现提取可执行文件内部所有图标
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
