动态生成 菜单(10分)

  • 主题发起人 主题发起人 不懂!
  • 开始时间 开始时间

不懂!

Unregistered / Unconfirmed
GUEST, unregistred user!
现在已经完成了 把数据库里的东西调出来做菜单, 问下 如何做能实现 点击相应子菜单出相应的功能,概括的越简单越好。
 
设置菜单按钮的tag值;返回对象如果是菜单就判断tag值,通过tag值执行相应的功能即可;
 
能不能麻烦把代码敲一下
 
procedure MenuItemclick(sender: tobject);
begin
case tmenuitem(sender).tag of
1:
2:
....
end;
end;
 
tmenuitem(sender).tag

这个是什么。。
 
强制类型转换,首先要设置好每个menuitem的tag值,用它来控制处理流程
 
后退
顶部