下载本文示例代码
在窗体中添加一个TMainMenu组件，并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件，设置它的Align属性值为alTop。最后选中TControlBar组件，然后在组件工具栏中双击TToolBar组件，这样就会把TToolBar组件添加到TControlBar组件上，通过这样的方法向TControlBar上添加两个TToolBar组件，设置TToolBar组件的Menu属性为TMainMenu组件。 设计完成的窗体如图1所示。
图1 主界面 保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。 在程序运行的过程中，可以通过鼠标拖动来改变工具栏风格的菜单的位置，并且可以自动停靠，如图3所示。
图2 程序运行的初始画面图3 程序运行结果
在窗体中添加一个TMainMenu组件，并且为它添加两个选项——File和Edit。然后向窗体上添加一个TControlBar组件，设置它的Align属性值为alTop。最后选中TControlBar组件，然后在组件工具栏中双击TToolBar组件，这样就会把TToolBar组件添加到TControlBar组件上，通过这样的方法向TControlBar上添加两个TToolBar组件，设置TToolBar组件的Menu属性为TMainMenu组件。 设计完成的窗体如图1所示。
图1 主界面 保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。 在程序运行的过程中，可以通过鼠标拖动来改变工具栏风格的菜单的位置，并且可以自动停靠，如图3所示。
图2 程序运行的初始画面图3 程序运行结果
下载本文示例代码
Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单Delphi实现自动停靠的菜单
