一个popupmenu菜单动态创建的问题

Question

可以通过如下语句创建一个item
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := 'First Menu';
PopupMenu1.Items.Add(Item);我的问题是如何动态创建一个下级菜单呢？

Answer 1

试试这样 PopupMenu1.Items.items[1].Add(Item);

Answer 2

PopupMenu1.Items.items[1].Add(Item);这样应该可以。

Answer 3

谢谢楼上的，现在可以了。
现在我想写一个通用过程，实现我在随意点击某一个菜单项时，能得到这个菜单项的caption值。
该如何实现？

Answer 4

在菜单的Click中用Sender应该可以得到的，你可以试试

Answer 5

MainMenu1.Items[0].Add(AMenuItem);//将动态添加的菜单项，与Click关联起来
AMenuItem.OnClick:=ShareClick;    
procedure TForm1.ShareClick(Sender: TObject);
begin
  if Sender is TMenuItem then
    Caption:=(Sender as TMenuItem).Caption;
end;