几个Item共用一个Click事件,在该事件里面写if (Sender as TMenuItem).Caption = '人事处' then
  ...

解决方案 »

  1.   

    我的程序如下:
    var
    Item: TMenuItem;
          begin
              item:=tmenuitem.Create(单位); //单位为已经主菜单
              Item.Caption :='财务处';//把财务处放到'单位'主菜单
              Item.Tag := 1; //Tag为1就表示财务处
                单位.Insert(0, Item);                
                item.Caption:='人事处';
                Item.Tag := 2; //Tag为2就表示人事处
                单位.Insert(1,item);            
                ....
                .....
                ......
          end
    什么样才能知道用户是点了人事处的还是财务处还是呢?
        我用: case TMenuItem(Sender).Tag of
                 1: { 财务处 };
                 2: { 人事处 };
                ..........
               end;