Delphi实现自动停靠的菜单

这个例子制作了一个可以自动停靠的工具栏样式的菜单。

将TMainMenu组件添加到表单中，并添加两个选项-file和Edit。然后向窗体添加一个TControlBar组件，并将其Align属性值设置为alTop。最后，选择TControlBar组件，然后双击组件工具栏中的t toolbar组件，这样TToolBar组件将被添加到TControlBar组件中。这样，两个TToolBar组件将被添加到TControlBar中，并且TToolBar组件的Menu属性将被设置为TMainMenu组件。

保存文件，然后按F9运行程序。

在程序运行过程中，可以拖动鼠标改变工具栏式菜单的位置，并且可以自动停靠。