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

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

?

1 2 3 4 5 6 7 8 9 10 11

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;