拖动工具栏

Question

我在我的应用中创建了2个工具栏。因为我想能够拖动它们，所以我将两个TToolBar组件放在TControlBar中。在这种情况下，我可以移动它们，但我希望能够像在MS Office中一样拖动它们（从顶部拖动工具栏并将其放在窗口的左侧，右侧或底部并保存它的位置）....

任何人都可以帮助我吗？

Answer 1

将ToolBars的'DragKind'设置为'dkDock'，将'DragMode'设置为'dmAutomatic'。 ControlBars的'DockSite'应为True。现在你所需要的就是坚持下去。拖动，由于某种原因拖动手柄似乎不起作用，但分离器会这样做。也许作为第一项的分隔符会伪造拖动手柄。

出于测试目的，在'... \ Demos \ DelphiWin32 \ VCLWin32 \ Docking'文件夹中编译并运行'Docking Demo'。您应该可以通过从“退出”和“工具栏1”按钮之间的分隔符拖动来浮动“工具栏1”。

至于保存位置，我相信你会手动这样做

说完这些，IMO，这些控件不会产生良好的GUI元素。据我所知，Office应用程序从未使用过ToolbarWindow32和Rebar控件。转而去第三方图书馆。我使用的SpTBXLib库取决于Toolbar2000。