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

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

procedure TForm2.cxButton1Click(Sender: TObject);
var
  item: TdxnavbarItem;
  grp: Tdxnavbargroup;
begin
  grp := dxnavbar1.Groups.Add;
  item := dxnavbar1.Items.Add;
  item.Caption := 'item1';
  // item.OnClick:=button1.nil;
  grp.CreateLink(item);
end;