Панель с двумя полосами слева, которые можно двигать

Previous  Top  Next

    
 

clip0111

Для создания панелей в двумя полосами слева, которые можно двигать друг относительно друга, используют компонент 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.

 

©Drkb::00948

http://delphiworld.narod.ru/

DelphiWorld 6.0