Interface

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 ты можеш ь увидет ь пример это й программы.

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

Type

TGraphicClock = class(TGraphicControl)