动态创建TMenuItem的一个问题？

Question

我动态创建
var
  vMenuItem: TMenuItem;
begin        vMenuItem:= TMenuItem.Create(spPMforCMD);   //动态创建
        vMenuItem.Caption :='我叫什么？';
        spPMforCMD.Items.Add(vMenuItem);              //加载到spPMforCMD
end;
我虽然动态创建了，请问如何实现：
点击了动态创建出来的vMenuItem之后显示他的Caption 属性？

Answer 1

自定义Click事件procedure MyClick(sender:TObject);
begin
  ShowMessage(TMenuItem(sender).Caption);
end;
指定菜单Click事件
var 
  vMenuItem: TMenuItem; 
begin         vMenuItem:= TMenuItem.Create(spPMforCMD);  //动态创建 
         vMenuItem.OnClick := MyClick;
        vMenuItem.Caption :='我叫什么？'; 
        spPMforCMD.Items.Add(vMenuItem);              //加载到spPMforCMD 
end;