Delphi实现自动停靠的菜单
这个例子制作了一个可以自动停靠的工具栏样式的菜单。
将TMainMenu组件添加到表单中,并添加两个选项-file和Edit。然后向窗体添加一个TControlBar组件,并将其Align属性值设置为alTop。最后,选择TControlBar组件,然后双击组件工具栏中的t toolbar组件,这样TToolBar组件将被添加到TControlBar组件中。这样,两个TToolBar组件将被添加到TControlBar中,并且TToolBar组件的Menu属性将被设置为TMainMenu组件。
保存文件,然后按F9运行程序。
在程序运行过程中,可以拖动鼠标改变工具栏式菜单的位置,并且可以自动停靠。
位律师回复
0条评论