TDxNavBar做导航菜单,类QQ的抽屉效果

添加组,添加项,并将项和组关联起来

tempitem:TdxnavbarItem;
  tempgroup:Tdxnavbargroup;
  tempgroup:=dxnavbar1.Groups.Add
 
      tempitem:=dxnavbar1.Items.Add;
   tempitem.Caption:=Caption;
   tempitem.OnClick:=button1.OnClick; //绑定事件
   tempgroup.CreateLink(tempitem);