Delphi实现自动停靠的菜单

本实例制作一个工具栏风格的可以自动停靠的菜单。

　　在窗体中添加一个TMainMenu组件，并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件，设置它的Align属性值为alTop。最后选中TControlBar组件，然后在组件工具栏中双击TToolBar组件，这样就会把TToolBar组件添加到TControlBar组件上，通过这样的方法向TControlBar上添加两个TToolBar组件，设置TToolBar组件的Menu属性为TMainMenu组件。

　　设计完成的窗体如图1所示。

图1 主界面

　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　在程序运行的过程中，可以通过鼠标拖动来改变工具栏风格的菜单的位置，并且可以自动停靠，如图3所示。

图2 程序运行的初始画面 图3 程序运行结果

查看本文来源