Delphi里怎样动态添加菜单？

Question

var
  mm:TMainMenu;//主菜单
  mi:TMenuItem;//菜单项；
begin
  mm.create(form1.handle);
  mi.create;
  mm.addItem(mi);
  .......
end;

Answer 1

mm : TMenuItem;     mm:=TMenuItem.Create(Self);
     mm.Caption:='asdfasdf';
     mm.OnClick:=PgClick;
     mm.ImageIndex:=16;
     PopupMenu1.Items.Add(mm);

Answer 2

mm : TMenuItem;     mm:=TMenuItem.Create(Self);
     mm.Caption:='asdfasdfas';
     mm.OnClick:=PgClick;
     mm.ImageIndex:=16;
     PopupMenu1.Items.Add(mm);

Answer 3

查帮助关于tmenuitem，很快就有答案了。

Answer 4

mm : TMenuItem;     mm:=TMenuItem.Create(Self);
     mm.Caption:='asdfasdfas';
     mm.OnClick:=PgClick;
     mm.ImageIndex:=16;
     PopupMenu1.Items.Add(mm);

Answer 5

给 universe(孤帆) 补充：
////////////////
public
  procedure Pgclick(sender:tobject);  procedure Pgclick(sender:tobject);
begin
  showmessage(tmenuitem(sender).caption);
end;

Answer 6

请问： stanely(俺是邢她汉子) 
为什么这一行
mm.OnClick:=Pgclick
编译过不去？