怎么写动态TMenuItem的onclick事件

cbuser 2004-01-10 11:56:26

如下，我该怎么写menuitem的onclick？
for (int i = 0; i < MyList->Count; i++)
{
PAList AStruct;
AStruct = new TAList;
AStruct = (PAList) MyList->Items[i];
TMenuItem * N150=new TMenuItem(PopupMenu1);
N150->Caption=WideString(AStruct->no);
PopupMenu1->Items->Add(N150);
}

...全文

62 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cbuser 2004-01-12

打赏
举报

好主意，谢谢

yufei_yf 2004-01-12

打赏
举报

void __fastcall TForm1::NewItemClick(TObject *Sender)
{
//---- 事件写在这
swith(((TMenuItem *)Sender)->Tag)
{
case 100:
......
}
}

for (int i = 0; i < MyList->Count; i++)
{
PAList AStruct;
AStruct = new TAList;
AStruct = (PAList) MyList->Items[i];
TMenuItem * N150=new TMenuItem(PopupMenu1);
N150->Caption=WideString(AStruct->no);
N150->OnClick = NewItemClick;
N150->Tag =100 + i; //
PopupMenu1->Items->Add(N150);
}

cbuser 2004-01-12

打赏
举报

不好意思，还要问详细点
void __fastcall TForm1::NewItemClick(TObject *Sender）
它是怎么分辨哪一个item被click的？

cbuser 2004-01-10

打赏
举报

但是在哪里触发

Big_foolcat 2004-01-10

打赏
举报

写好一个事件处理函数再动态的将OnClick事件指向它即可

Big_foolcat 2004-01-10

打赏
举报

void __fastcall TForm1::NewItemClick(TObject *Sender)
{
//---- 事件写在这
}

for (int i = 0; i < MyList->Count; i++)
{
PAList AStruct;
AStruct = new TAList;
AStruct = (PAList) MyList->Items[i];
TMenuItem * N150=new TMenuItem(PopupMenu1);
N150->Caption=WideString(AStruct->no);
N150->OnClick = NewItemClick;
PopupMenu1->Items->Add(N150);
}

//获取列显示时的事件,如计算字段,翻译CXGRID显示内容时会用到 TColumnGetDataTextEvent = record ColumnName:string; FOldColumnGetDataText: TcxGridGetDataTextEvent; SQL:string; Self:TcxGridColumn; ...

这是一个Delphi 7.0 利用INI文件创建窗口菜单的范例源码，在Delphi7环境下可直接编译运行，将创建的菜单内容...//定义单击事件　Im1.Add(Im2);//将二级菜单添加到一级菜单　delete(Va,1,Idx);//删除截取的字符　end;

所谓动态菜单是指菜单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下：　　1．首先，确定动态菜单的数据来源，即要确定动态菜单标题是来自Windows的系统注册表，还是来自一个数据库...