DevExpress动态生成菜单、子菜单

http://blog.csdn.net/hhf383530895/article/details/6120750

http://fen960.blog.sohu.com/52577728.html

1. var  
2.   ATmpSubItem,  
3.   ATmpItem   : TdxBarItem;  
4.   ABarItemLnk: TdxBarItemLink;  
5.   
6. //创建菜单  
7.       ATmpItem := TdxBarSubItem.Create(dxPmReport);  
8.       with ATmpItem do  
9.       begin  
10.         Name := '---' + IntToStr(I);  
11.         Caption := TmpBillName;  
12.         dxPmReport.ItemLinks.Add.Item := ATmpItem;  
13.       end;  
14.   
15. //附加指定菜单的子菜单项  
16.         ATmpSubItem := TdxBarButton.Create(dxPmReport);  
17.         with ATmpSubItem do  
18.         begin  
19.           Name := 'd--' + IntToStr(I) + IntToStr(J);  
20.           Caption := fieldbyname(ACaptionField).AsString;  
21.           OnClick := __pmClick;  
22.         end;  
23.         ABarItemLnk := TdxBarSubItem(ATmpItem).ItemLinks.Add;  
24.         ABarItemLnk.Item := ATmpSubItem;