TPopupMenu 获取点击的Item索引 动态创建的TPopupMenu,如何在其子菜单的点击事件里,获取Add选项在整个TPopupMenu的索引呢?procedure NAddClick(Self, Sender: TObject); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 PopupMenu1.Items.IndexOf(bbbb1);//返回0即为第一个,1为第二个 procedure TForm1.e1Click(Sender: TObject);begin if (Sender is TMenuItem) then ShowMessage(IntToStr((Sender as TMenuItem).MenuIndex));end; 请问一下,delphi中有什么网格控件可以合并列的 关于程序运行过程中数据文件读取的控制 还有一个问题关于Memo1.Color 安装时明明选择的语言是中文(中国),为什么我的fastreport3设计器却是英文的? 怎样读出INI文件里小节的值填到文本框里 请问如何制作缩略图? adodataset如何開啟緩存功能 intraweb发布的问题,高分求救,请高手不吝赐教!!!急!!! delphi的socket通讯中出现的问题?请高手指点!!!!1 怪题? 一个access数据库模糊查询判断的问题!~ VC中<<移位在Delphi中如何实现?急啊
PopupMenu1.Items.IndexOf(bbbb1);
//返回0即为第一个,1为第二个
begin
if (Sender is TMenuItem) then
ShowMessage(IntToStr((Sender as TMenuItem).MenuIndex));
end;