转：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;