dxNavBar 动态创建

[CountHome]

如题:
使如数据库存有菜单
业务菜单
华中分公司
华南分公司
系统设置
密码修改
用户管理
关于

怎么在启动的时候创建到dxNavBar中,谢谢!

[广州佬]

在窗体放入dxNavBar并双击它，在弹出的编辑窗中点击左边的“Groups”、在右边分别添加“业务菜单”、“系统设置”；再点击左边“Items”、在右边分别添加“华中分公司、华南分公司、 密码修改、用户管理、 关于”；最后，点击左边的“Link designer”、在右边的左框中点选“业务菜单”、右框中点击“华中分公司”、点击上面的“+”符号，这样就将“华中分公司”的项“放入”到“业务菜单”组里了，如是将其他的项“放入”到相应的组里、点击Close按钮回到窗体，就可以看到效果出来了。

[广州佬]

以上是静态建立。
动态建立：

procedure TForm1.FormCreate(Sender: TObject);
const s:array[0..4]of string=('华中分公司','华南分公司','密码修改','用户管理','关于');
var i:integer;
begin
  dxNavBar1.Groups.Add;
  dxNavBar1.Groups.Items[0].Caption:='业务菜单';
  dxNavBar1.Groups.Items[1].Caption:='系统设置';
  for i:= 0 to 4 do begin
    dxNavBar1.Items.Add;
    dxNavBar1.Items.Items[i].Caption:=s[i];
    if i<2 then
      dxNavBar1.Groups.Items[0].CreateLink(dxNavBar1.Items.Items[i])
    else
      dxNavBar1.Groups.Items[1].CreateLink(dxNavBar1.Items.Items[i]);
  end;
end;

[广州佬]

补充和勘误一下，如下：

procedure TForm1.dxNavBarItemClick(Sender: TObject);
begin
  showmessage(TdxNavBarItem(Sender).Caption+'被点击了');
end;

procedure TForm1.FormCreate(Sender: TObject);
const s:array[0..4]of string=('华中分公司','华南分公司','密码修改','用户管理','关于');
var i:integer;
begin
  dxNavBar1.Groups.Add;
  dxNavBar1.Groups.Add; //刚才漏了一次建立
  dxNavBar1.Groups.Items[0].Caption:='业务菜单';
  dxNavBar1.Groups.Items[1].Caption:='系统设置';
  for i:= 0 to 4 do begin
    dxNavBar1.Items.Add;
    dxNavBar1.Items.Items[i].Caption:=s[i];
    if i<2 then
      dxNavBar1.Groups.Items[0].CreateLink(dxNavBar1.Items.Items[i])
    else
      dxNavBar1.Groups.Items[1].CreateLink(dxNavBar1.Items.Items[i]);
    dxNavBar1.Items.Items[i].OnClick:=dxNavBarItemClick;//关联点击事件
  end;
end;