Для создания панелей в двумя полосами слева, которые можно двигать друг относительно друга, используют компонент ControlBar (вкладка Additional), на котором обычно размещают один или несколько ToolBar (вкладка Win32). Чтобы сделать возможным "вытаскивание" панели из ControlBar нужно написать следующий код:
|
Code: |
|
procedure TForm1.FormCreate(Sender: TObject); begin ToolBar1.DockSite := true; ToolBar1.DragKind := dkDock; ToolBar1.DragMode := dmAutomatic; end;
procedure TForm1.ControlBar1DockOver(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := (Source.Control is TToolBar); if Accept then with Source.DockRect do begin TopLeft := ControlBar1.ClientToScreen(ControlBar1.ClientRect.TopLeft); Right := Left + Source.Control.Width; Bottom := Top + Source.Control.Height; end; end; |
Вы можете убрать метод FormCreate, установив нужные свойства компонента ToolBar1 на стадии разработки при помощи Object Inspector.
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!