关于动态创建菜单的问题

Question

//....
  private
    submenu1click(Sender: TObject);
  end;
//....
procedure TForm1.submenu1click(Sender: TObject);
begin
//....
end;

Answer 1

我不明白，我需要一个带string参数的过程，如何将该过程写到
Add(NewItem('submenu1',0,False,True,submenu1click,0,'submenu1'));
中去

Answer 2

就是上面的
PopupMenu1 := TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
  Add(NewItem('submenu1',0,False,True,submenu1click(value:string),0,'submenu1'));
end;submenu1click(value:string)是我写的一个过程
，然后就出错了

Answer 3

如果submenu1click不能带参数的话，那应该如何将带参数的函数赋给click事件

Answer 4

private
  submenu1click(Sender: TObject);
end;procedure TForm1.submenu1click(Sender: TObject);
begin
end;然后在程序中menu.onclik:=submenu1click;