перетаскивание панелей инструментов

Question

Я создал в своем приложении 2 панели инструментов. Поскольку я хотел иметь возможность перетаскивать их, я поместил оба компонента TToolBar в TControlBar. В этом случае я могу переместить их, но я хочу иметь возможность перетаскивать их, как в MS Office (перетащите панель инструментов сверху и поместите ее влево, вправо или внизу окна и сохраните ее положение) ....

Кто-нибудь может мне помочь?

Answer 1

Установите DragKind панели инструментов на «dkDock», а «DragMode» на «dmAutomatic». DockSite панели управления должен быть True. Теперь все, что вам нужно, это держаться за что-то. перетаскивать, по какой-то причине маркеры перетаскивания, кажется, не работают, но разделители будут делать. Возможно, в качестве первого элемента разделитель подделал бы ручку перетаскивания.

В целях тестирования скомпилируйте и запустите 'Docking Demo' в папке '... \ Demos \ DelphiWin32 \ VCLWin32 \ Docking'. Вы должны иметь возможность перемещать «Панель инструментов 1», перетаскивая из разделителя между кнопками «Выход» и «Панель инструментов 1».

Что касается сохранения позиции, я думаю, вы бы сделали это вручную

Сказав это, ИМО, эти элементы управления не будут хорошими элементами графического интерфейса. Насколько я знаю, приложения Office никогда не использовали элементы управления ToolbarWindow32 и Rebar. Вместо этого перейдите на стороннюю библиотеку. Я использую библиотеку SpTBXLib , которая зависит от Toolbar2000 .