动态菜单的取名问题?

Question

在动态创建的时候，分别给每个menuitem取个好记的名字
在onclick事件中判断sender是哪个menuitem,然后执行相关操作

Answer 1

to zhujunfeng:我的意思是在登录窗口退出后,进入主窗口想动态添加菜单,我该怎么办呢?

Answer 2

如何在子窗口中释放菜单,又如何动态的添加菜单?特向高手求救!!!(搞定就给分).
我在子窗口中是这样释放菜单的,可是不能通过.
for  i:=0 to componentcount-1 do
if components[i] is tmainmenu then
   (components[i] as tmenuitem).items:='';

Answer 3

for  i:=0 to componentcount-1 do
if components[i] is tmainmenu then
  (components[i] as tmenuitem).items:=''; 
应该是
for  i:=0 to componentcount-1 do
if components[i].name = 'tmainmenu' then