动态添加菜单项吗?如果是,索一下解决的问题,有更全的答案,看帮助,有例子。
procedure TForm.PopupHandler;
begin
//chuli
end; NewItem := TMenuItem.Create(PopupMenu1);
NewItem.Caption := '名字';
NewItem.OnClick := PopUpHandler;//自己定义的处理过程指针。
PopupMenu1.Items.Insert(0, NewItem);
procedure TForm.PopupHandler;
begin
//chuli
end; NewItem := TMenuItem.Create(PopupMenu1);
NewItem.Caption := '名字';
NewItem.OnClick := PopUpHandler;//自己定义的处理过程指针。
PopupMenu1.Items.Insert(0, NewItem);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货