DELPHI菜单动态(200)

有这样一个问题,程序动态按数据库中的信息生成菜单，想让子菜单记录 如下定义结构体中的信息，应怎样做呢 type MenuType=^TMenu; TMenu=record BplName:string; FrmStr:string; MsgId:Integer;end;New(aa);aa.BplName :='3432432';mm1.Items.Clear ;MainMenu[0]:=TMenuItem.Create(self);MainMenu[0].Caption :='第一个MAIN';//New(self);//aa[0].BplName :='12312';mm1.Items.Add(MainMenu[0]);ItemMenus[0]:=tmenuitem.create(self);ItemMenus[0].Caption :='子菜单';MainMenu[0].Add(ItemMenus[0]);Self.Menu :=mm1;这是一个动态生成的例子，可就是怎样把结构体中信息和DELPHI菜单关联

可以用menu.tag记录序号或者指针ID

群里不是已经给你解答了吗？ 要么用tag，要么添加属性，派生子类，