转：ExpressBars中的停靠控件使用

http://www.cnblogs.com/jxsoft/archive/2011/08/25/2152872.html

1          新手上路

1.1      控件简介

Dock panels

  Dock panels是建立停靠应用的最主要部分，是在应用内部的windows局部窗口，可以放置其他的VCL控件。当一个Dock panels放在Form上后，它会自动漂浮在Form之上。如果需要停靠到窗体中，需要使用TdxDockSite控件，并且可以设置主题风格。

  注意，当要对Dock panels控件进行删除、复制粘贴或者其他一些操作时，务必使用控件的上下文菜单来实现。

  Dock panels之间可以互相停靠，停靠的结果有2种类型-tab containers 和side containers，例如，可以将side containers放到一个tab containers中。

Dock Sites

  Dock Sites支持放置Dock panels，注意Dock Sites只能接受Dock panels控件；

  如果没有Dock Sites上没有控件时，会有一个空白的矩形区域占位，如果不想这样，可以采用以下技巧：

l       用一个Dock Sites填充整个Form，然后在上面放上一个Dock panels；

l       如果将DockSites的autoSize属性设为true，它的大小会自适用所接受的Dock Panel或者container；

Docking Manager

  Docking Manager控件可以集中控制所有或者部分的停靠控件。注意，它不是必须的，如果在Application的任何窗体上都没有放置Docking Manager，docking controller会接管停靠控件的管理。但是docking controller只提供默认设置，不允许改变停靠控件的设置。一般情况下都会使用Docking Manager。

1.2      如何定制Dock Panels外观

ExpressDocking提供4种预先设置好显示风格，标准(类似于Delphi)、Visual Studio .Net、office和Windows Xp风格。为了在设计时就能指定风格，需要使用Docking Manager的ViewStyle和LookAndFeel属性。注意LookAndFeel属性设置只能在ViewStyle属性设置为vsUseLookAndFeel时使用。

要指定一个dock panel的caption，使用Caption属性，设置图标使用ImageIndex属性，当然之前要给docking manager提供一个imageList。

1.3      停靠的基本操作

  如果要改变dock panel的位置，但是不想在经过dock site上方的时候自动嵌入，可以在拖动的时候按住CTRL。

  停靠控件的AllowDockClients属性为接受的控件停靠设定位置，AllowDock为停靠到其他控件设定位置。设置AllowFloating为False，可以禁止停靠控件漂浮，Dockable设置为False，则不允许拖动停靠。

1.4      创建一个Visual Studio .Net风格的界面

l       新建一个应用；

l       在窗体上放置一个TdxDockSite控件，并设置Align属性为alClient；

l       在TdxDockSite上放置一个TdxDockPanel控件，TdxDockPanel会自动充满整个TdxDockSite的区域。设置ShowCaption属性为False，隐藏面板标题栏；

l       在TdxDockPanel上放置一个memo控件，并设置Align为alClient；

l       设置dock panel的AllowDockClients属性，将所有的选项为False，阻止其他dock panel的停靠；

l       将dock site的AllowDockClients属性的dtTop选项设为False，将会阻止其他dock panel停靠到其上方；

l       至此，所有准备步骤已经就绪。现在可以在窗体上新建一些dock panel，这些dock panel只能被拖放到窗体的边缘，除了上方。当一个dock panel停靠到窗体的左边，设置AutoHide属性，将会自动加入一个side container控件；

l       剩下的事情就要切入主题了，放置一个docking manager控件，设置ViewStyle属性为vsNET，整个应用的界面就会变成VS .NET风格了。

 

2          运行时的停靠控件

2.1      停靠规则

  Dock panel 只能在dock site上该能改变大小。ExpressDocking提供2种停靠点类型：dock sites、layout sites和float sites。Dock sites 是放置在窗体上，用来接受dock panel的停靠；Layout sites是当有停靠操作时，自动创建在dock site上，以提供更灵活的布局定制；Float sites是漂浮dock panel的载体；

  当dock panel处于漂浮状态，会自动创建Float sites，一旦dock panel停靠，Float site就会被销毁；

  Layout sites 也是自动创建的，在dock panel停靠后发生。Layout site不会占据空间；

2.2      在运行时控制dock panels的停靠

  Dock panel 提供DockTo, MakeFloating和UnDock方法来执行停靠操作。

  MakeFloating是使dock panel离开Dock site而处于漂浮状态；

  UnDock类似于MakFloating，但是会隐藏Dock panel。这个方法很有用处，例如当一个dock panel停靠到另外一个dock panel形成side container，你需要知道目标dock panel是不是在一个tab container中，如果之前所有的dock panel都被UnDock了，那么你就不必担心担心了。

  例如将dock panel停靠到左边：

dxDockPanel1.DockTo(dxDockSite1, dtLeft, 0);

  例如将一个dock panel充满窗体的下方，另外一个dock panel放置未充满区域的右侧：

dxDockPanel2.DockTo(dxDockSite1, dtBottom, 0); //此步会自动创建一个LayoutDockSite来放置dxDockPanel2;

dxDockPanel3.DockTo(dxDockPanel2.LayoutDockSite, dtRight, 0); //在dxDockPanel2的LayoutDockSite上来布局新dock panel；

docking manager提供一些方法来存储和加载布局，这些方法是SaveLayoutToIntFile, SaveLayoutToRegistry, SaveLayoutToStream, LoadLayoutFromIntFile,LoadLayoutFromRegistry, LoadLayoutFromStream

2.3      创建和管理Container Control

l       调用停靠控件的DockTo方法就会自动一个创建容器；当UnDock发生后，会自动销毁容器空间；

l       调用停靠控件的MakeFloating方法会自动销毁容器控件；

l       调用容器的ActiveChildIndex来查找当前活动dock panel；

l       Dock Panel有个DockIndex属性，决定了其在容器中的索引；

l       容器有Children,ChildCount, ValidChildren和ValidChildCount属性，可以用来访问容器的成员dock panel；

l       Dock panel的ParentDockControl, TabContainer和SideContainer属性可以用来访问父停靠控件；

  例如下面的代码演示：

// Delphi

var

  ATabContainer: TdxTabContainerDockSite;

  ASideContainer: TdxSideContainerDockSite;

begin

  // create a side container by docking the second panel

  // to the center of the first one

  dxDockPanel2.DockTo(dxDockPanel1, dtClient, 1);

 

  // obtaining the tab container created

  ATabContainer := dxDockPanel1.TabContainer;

  if ATabContainer = nil then Exit;

  // adding the third panel to the tab container

  dxDockPanel3.DockTo(ATabContainer, dtClient, 2);

  // switching to the first panel (tab)

  ATabContainer.ActiveChildIndex := dxDockPanel1.DockIndex;

  // create a vertical side container

  dxDockPanel4.DockTo(dxDockPanel5, dtTop, 0);

 

  // obtain the side container created

  ASideContainer := dxDockPanel4.SideContainer;

  if ASideContainer = nil then Exit;

  // expand the top panel within the side container

  ASideContainer.ActiveChildIndex := dxDockPanel4.DockIndex;

  // dock the side container to a site's right edge

  ASideContainer.DockTo(dxDockSite1, dtRight, 0);

  // dock the tab container to a site's bottom edge

  ATabContainer.DockTo(dxDockSite1, dtBottom, 0);

 

end;

2.4      在运行时动态创建停靠控件

  停靠控件依靠Visible属性来设置是否显示。当调用控件的Close方法也会隐藏控件，但要记住，需要将docking manager的doFreeOnClose选项禁用，否则，Close方法会销毁控件；另外一个隐藏控件的方法是使用UnDock。调用Free也是销毁控件。

l       不必手工创建容器控件，因为他们是伴随停靠操作自动创建和销毁的；

l       如果一个控件隐藏，容器还会为它保留位置，当再次显示时，还会出现在同样的位置；

l       如果开启自动隐藏特性，再设置Visible属性为False会无效；因此在隐藏这类控件前，最好先取消自动隐藏特性；

停靠控件提供一些事件来响应这些操作：VisibleChanged, VisibleChaning, OnClose, OnCloseQuery；

l       显示和隐藏停靠控件的示例

  procedure TForm1. Button1Click(Sender: TObject);

begin

  if dxDockPanel1.AutoHide and not dxDockPanel1.Visible then

  begin

    dxDockingController.BeginUpdate;

    try

      // make the panel's client area visible on screen

      dxDockPanel1.Visible := True;

      // hide the panel

      dxDockPanel1.Visible := False;

    finally

      dxDockingController.EndUpdate;

    end;

  end

  else

      dxDockPanel1.Visible := not dxDockPanel1.Visible;

end;

　　

l       动态创建停靠控件

  procedure TForm1.FormCreate(Sender: TObject);

begin

  // specify the open dialog抯 filter

  OpenDialog1.Filter := '*.bmp|*.bmp';

  with dxDockingManager1 do

  begin

    // force dock controls to be destroyed when closed

    Options := dxDockingManager1.Options + [doFreeOnClose];

    // specify the default tabs position and

    // the dock controls paint style

    DefaultTabContainerSiteProperties.TabsPosition := tctpTop;

 

    ViewStyle := vsNET;

  end;

end;

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var

  APicture: TPicture;

  APanel: TdxDockPanel;

  AImage: TImage;

  ALastIndex, I: Integer;

begin

  if Key = VK_INSERT then

  begin

    // open the file and create the corresponding image object

 

    if not OpenDialog1.Execute() then Exit;

    APicture := TPicture.Create();

    APicture.LoadFromFile(OpenDialog1.FileName);

    // create a new panel that will hold the image

    APanel := TdxDockPanel.Create(Self);

    APanel.Caption := ExtractFileName(OpenDialog1.FileName);

    // check whether the dock site already has docked controls

    if dxDockSite1.ChildCount > 0 then

    begin

      // add the panel to the tab container

 

      ALastIndex := dxDockSite1.Children[1].ChildCount;

      APanel.DockTo(dxDockSite1.Children[1], dtClient, ALastIndex + 1);

    end

    else

      // dock the panel to the dock site

      APanel.DockTo(dxDockSite1, dtClient, 0);

    // create an image control and place it on the panel

    AImage := TImage.Create(Self);

    AImage.Parent := APanel;

    AImage.Align := alClient;

    AImage.Center := True;

    AImage.Picture := APicture;

 

  end;

  // delete all panels if the DELETE key has been pressed

  if Key = VK_DELETE then

  begin

    for I := 0 to dxDockingController.DockControlCount - 1 do

    begin

      if dxDockingController.DockControls[I] is TdxDockPanel then

        dxDockingController.DockControls[I].Close;

    end;

  end;

end;