不 不懂! Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-31 #1 现在已经完成了 把数据库里的东西调出来做菜单, 问下 如何做能实现 点击相应子菜单出相应的功能,概括的越简单越好。
清 清新空气 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-31 #2 设置菜单按钮的tag值;返回对象如果是菜单就判断tag值,通过tag值执行相应的功能即可;
杯 杯中水 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-31 #4 procedure MenuItemclick(sender: tobject); begin case tmenuitem(sender).tag of 1: 2: .... end; end;
不 不懂! Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-31 #5 tmenuitem(sender).tag 这个是什么。。
杯 杯中水 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-01 #6 强制类型转换,首先要设置好每个menuitem的tag值,用它来控制处理流程