r:TRect; begin if ToolBar1.HostDockSite<>ControlBar1 then

begin
GetWindowRect(ToolBar1.Handle, R);

Здесь надо сохранить в реестре R.Left и R.Top.
А также признак, что ToolBar1 не лежит на ControlBar1

End else begin

Здесь надо сохранить в реестре ToolBar1.Left и ToolBar1.Top. А также признак, что ToolBar1 лежит на ControlBar1

end; end;

На запуск программы ты должен написать примерно следующее:

Procedure TForm1.FormShow(Sender: TObject); begin

Прочитать положение ToolBar1. ControlBar1 то

Begin
ToolBar1.Left:= Сохранённая левая позиция
ToolBar1.Topt:= Сохранённая верхняя позиция

End;

Иначе

begin ToolBar1.ManualDock(nil,nil,alNone); ToolBar1.ManualFloat(Bounds(Сохранённая левая позиция,

Сохранённая правая позиция, ToolBar1.UndockWidth, ToolBar1.UndockHeight)); End; end;

Как видишь, подводные булыжники есть. Но всё же ничего сильно сложного нет.

Теперь мы сделаем менюшку в стиле M$. Для этого нужно поставить ещё один ToolBar и установим его свойство ShowCaption в true. Создадим на нём две кнопки и назовём их File и Edit. Теперь установим компонент MainMenu и сделаем его таким как на рисунке 11.25.2. Меню Not visible сделаем невидимым (Visible=false), в этом случае всё меню будет подключено к форме но будет не видно. Для чего я это делаю, ведь можно было использовать PopupMenu? А потому что при использовании PopupMenu приходится мучится с клавишами быстрого вызова, а в моём способе они подключаются автоматически вместе с главным меню.

Чтобы создать подменю для меню File, нужно щёлкнуть по нём правой кнопкой и выбрать Create Submenu или нажать CTRL+Стрелка в право

Теперь кнопке File в свойстве MenuItem ставим File1 (имя пункта меню), а кнопке Edit ставим Edit1. И на последок обеим кнопкам нужно установить свойство Grouped в true.

Напоследок у каждой кнопки панели инструментов надо установить в свойстве

Grouped – true.

Но это не единственный способ создания меню (это тот, что я чаще использую). Можно ещё просто создать полноценное главное меню. Потом просто убрать его из свойства главной формы Menu, а указать у созданной тобой пустой панели (без всяких кнопок) в таком же свойстве Menu.

На компакт диске, в директории \Примеры\Глава 11\Dock ты можеш ь увидет ь пример это й программы.