【结贴】文档关联的界面如何实现

amnet

文档关联面板的界面是如何实现的？是用的平坦上的控件吗？

amnet

有人回复没？顶一下!

alang

用的 TdxNavBar 控件

alang

把以下内容复制到剪贴板中，到窗体上选中窗体，按Ctrl+V就可以看到效果了
object dxNavBar1: TdxNavBar
  Left = 112
  Top = 48
  Width = 169
  Height = 361
  ActiveGroupIndex = 0
  DragCopyCursor = -1119
  DragCursor = -1120
  DragDropFlags = [fAllowDragLink, fAllowDropLink, fAllowDragGroup, fAllowDropGroup]
  HotTrackedGroupCursor = crDefault
  HotTrackedLinkCursor = -1118
  View = 12
  object dxNavBar1Group1: TdxNavBarGroup
    Caption = 'dxNavBar1Group1'
    LinksUseSmallImages = True
    SelectedLinkIndex = -1
    ShowAsIconView = False
    ShowControl = False
    TopVisibleLinkIndex = 0
    UseControl = False
    UseSmallImages = True
    Visible = True
    Links = <
      item
        Item = dxNavBar1Item1
      end
      item
        Item = dxNavBar1Item3
      end
      item
        Item = dxNavBar1Item2
      end>
  end
  object dxNavBar1Group2: TdxNavBarGroup
    Caption = 'dxNavBar1Group2'
    LinksUseSmallImages = True
    SelectedLinkIndex = -1
    ShowAsIconView = False
    ShowControl = False
    TopVisibleLinkIndex = 0
    UseControl = False
    UseSmallImages = True
    Visible = True
    Links = <>
  end
  object dxNavBar1Group3: TdxNavBarGroup
    Caption = 'dxNavBar1Group3'
    LinksUseSmallImages = True
    SelectedLinkIndex = -1
    ShowAsIconView = False
    ShowControl = False
    TopVisibleLinkIndex = 0
    UseControl = False
    UseSmallImages = True
    Visible = True
    Links = <>
  end
  object dxNavBar1Item1: TdxNavBarItem
    Caption = 'dxNavBar1Item1'
    Enabled = True
    LargeImageIndex = -1
    SmallImageIndex = -1
    Visible = True
  end
  object dxNavBar1Item2: TdxNavBarItem
    Caption = 'dxNavBar1Item2'
    Enabled = True
    LargeImageIndex = -1
    SmallImageIndex = -1
    Visible = True
  end
  object dxNavBar1Item3: TdxNavBarItem
    Caption = 'dxNavBar1Item3'
    Enabled = True
    LargeImageIndex = -1
    SmallImageIndex = -1
    Visible = True
  end
end

amnet

代码运行出错

alang

不会啊，4楼就没有定义 dxNavBar1DocNewGroup 的控件

amnet

就是有这个错误 和名字没有关系  名字是我改的 如果不改 也是一样的错误 只是名字不一样

amnet

有没有人解答一下啊

alang

不用4楼，用代码实现是这样的
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
unit CT1;

interface

uses
  Business.System, Business.Forms, Justep.Tools.ExpressNavBar;

type
  TCT1 = class(TForm)
    procedure BizFormShow(Sender: TObject);
  private
    {private declarations}
    dxNavBar1: TdxNavBar;
    dxNavBar1Group1: TdxNavBarGroup;
    dxNavBar1Group2: TdxNavBarGroup;
    dxNavBar1Group3: TdxNavBarGroup;
    dxNavBar1Item1: TdxNavBarItem;
    dxNavBar1Item2: TdxNavBarItem;
    dxNavBar1Item3: TdxNavBarItem;
  public
    {public declarations}
    procedure MyClick(Sender: TObject);
  end;

implementation

procedure TCT1.MyClick(Sender: TObject);
begin
  Dialogs.Showmessage((Sender as TdxNavBarItem).Caption);
end;

procedure TCT1.BizFormShow(Sender: TObject);
begin
  dxNavBar1 := TdxNavBar.Create(Self);
  with dxNavBar1 do
  begin
    Parent := Self;
    Left := 80;
    Top := 16;
    Width := 169;
    Height := 361;
    ActiveGroupIndex := 0;
    DragCopyCursor := -1119;
    DragCursor := -1120;
    DragDropFlags := [TdxNavBarDragDropFlag.fAllowDragLink, TdxNavBarDragDropFlag.fAllowDropLink, TdxNavBarDragDropFlag.fAllowDragGroup, TdxNavBarDragDropFlag.fAllowDropGroup];
    HotTrackedGroupCursor := Business.Forms.Controls.crDefault;
    HotTrackedLinkCursor := -1118;
    View := 12;
  end;

  dxNavBar1Group1 := dxNavBar1.Groups.Add;
  with dxNavBar1Group1 do
  begin
    Caption := 'dxNavBar1Group1';
    LinksUseSmallImages := True;
    SelectedLinkIndex := -1;
    ShowAsIconView := False;
    ShowControl := False;
    TopVisibleLinkIndex := 0;
    UseControl := False;
    UseSmallImages := True;
    Visible := True;
  end;
  dxNavBar1Group2 := dxNavBar1.Groups.Add;
  with dxNavBar1Group2 do
  begin
    Caption := 'dxNavBar1Group2';
    LinksUseSmallImages := True;
    SelectedLinkIndex := -1;
    ShowAsIconView := False;
    ShowControl := False;
    TopVisibleLinkIndex := 0;
    UseControl := False;
    UseSmallImages := True;
    Visible := True;
  end;
  dxNavBar1Group3 := dxNavBar1.Groups.Add;
  with dxNavBar1Group3 do
  begin
    Caption := 'dxNavBar1Group3';
    LinksUseSmallImages := True;
    SelectedLinkIndex := -1;
    ShowAsIconView := False;
    ShowControl := False;
    TopVisibleLinkIndex := 0;
    UseControl := False;
    UseSmallImages := True;
    Visible := True;
  end;
  dxNavBar1Item1 := dxNavBar1.Items.Add;
  with dxNavBar1Item1 do
  begin
    Caption := 'dxNavBar1Item1';
    Enabled := True;
    LargeImageIndex := -1;
    SmallImageIndex := -1;
    Visible := True;
    OnClick := MyClick;
  end;
  dxNavBar1Item2 := dxNavBar1.Items.Add;
  with dxNavBar1Item2 do
  begin
    Caption := 'dxNavBar1Item2';
    Enabled := True;
    LargeImageIndex := -1;
    SmallImageIndex := -1;
    Visible := True;
    OnClick := MyClick;
  end;
  dxNavBar1Item3 := dxNavBar1.Items.Add;
  with dxNavBar1Item3 do
  begin
    Caption := 'dxNavBar1Item3';
    Enabled := True;
    LargeImageIndex := -1;
    SmallImageIndex := -1;
    Visible := True;
    OnClick := MyClick;
  end;
  dxNavBar1Group1.CreateLink(dxNavBar1Item1);
  dxNavBar1Group1.CreateLink(dxNavBar1Item2);
  dxNavBar1Group1.CreateLink(dxNavBar1Item3);
end;

end.

amnet

这样做的话 布局和样式设计就只能全部用代码做了啊？