拖動工具欄

Question

我在我的應用程序中創建了2個工具欄。因爲我想能夠拖動它們，所以我將兩個TToolBar組件放在TControlBar中。我這種情況下，我可以移動它們，但我希望能夠像在MS Office中一樣拖動它們（從頂部拖動工具欄並將它放在窗口的左側，右側或底部並保存它的位置）....

任何人都可以幫我嗎？

Answer 1

將ToolBars的'DragKind'設置爲'dkDock'，'DragMode'設置爲'dmAutomatic'。 ControlBars的'DockSite'應該爲True。現在你所需要的只是堅持下去。拖動，由於某種原因拖動手柄似乎不工作，但分離器會做。也許作爲第一個項目的分隔符會僞造一個拖動句柄。

出於測試目的，在'... \ Demos \ DelphiWin32 \ VCLWin32 \ Docking'文件夾中編譯並運行'Docking Demo'。您應該能夠通過從「退出」和「工具欄1」按鈕之間的分隔符拖放來「浮動」工具欄1。

至於保存的位置，我相信你會做手工

說了這些，國際海事組織，這些控件不會作出良好的GUI元素。據我所知，Office應用程序從未使用過ToolbarWindow32和Rebar控件。改爲使用第三方庫。我正在使用取決於Toolbar2000的SpTBXLib庫。