添加组,添加项,并将项和组关联起来
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;