DevExpress动态生成菜单、子菜单 //声明变量 var ATmpSubItem, ATmpItem : TdxBarItem; ABarItemLnk: TdxBarItemLink; //创建菜单 ATmpItem := TdxBarSubItem.Create(dxPmReport); with ATmpItem do begin Name := '---' + IntToStr(I); Caption := TmpBillName; dxPmReport.ItemLinks.Add.Item := ATmpItem; end; //附加指定菜单的子菜单项 ATmpSubItem := TdxBarButton.Create(dxPmReport); with ATmpSubItem do begin Name := 'd--' + IntToStr(I) + IntToStr(J); Caption := fieldbyname(ACaptionField).AsString; OnClick := __pmClick; end; ABarItemLnk := TdxBarSubItem(ATmpItem).ItemLinks.Add; ABarItemLnk.Item := ATmpSubItem;