几个Item共用一个Click事件,在该事件里面写if (Sender as TMenuItem).Caption = '人事处' then
...
...
解决方案 »
- 如何判断nForm已经free但还没有nil的状态
- dll中参数含有结构体,怎么调用
- 如何让加入到TImageList的中的图片自动适应大小
- 什么时候会调用到ntdll.ZwCloseObjectAuditAlarm?超难吧!
- 急,各位高手帮帮忙,关于钩子问题?
- TIdTCPClient,使用读取线程中的问题
- 这回还得请大家帮帮我,关于数据更新
- 用TWebBrowser判断那弹出的下载对话框出来了?
- 那位可以告诉我delphi和vb那个好,好在哪里?我想学。
- 有谁知道office xp的cd key, 如告知正确,定加分????
- 怎么改变DBGrid控件中特定行的的背景颜色和字符颜色?救命哪!!!!
- http://www.csdn.net/expert/topic/504/504416.shtm 这个地址我一进,浏览器就没有回应了,这是我提的一人问题啊,大家帮忙看看,这是什么回事,不是我的问题,进其它问题一切正常。
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;