点击MainMenu1菜单，其中一项，怎样得到点击项的内容？？

Question

点击MainMenu1菜单，其中一项，怎样得到点击项的内容？？
A
----B
----C
----D
----E
点击MainMenu1菜单，E项时，把E项内容显示在Edit1.text.E.Caption:=E除了这种方法，还有哪些？？

Answer 1

上面写错了一点,下面是:
A
----B
----C
----D
----E
点击MainMenu1菜单，E项时，把E项内容显示在Edit1.text.edit1.text:=E.Caption除了这种方法，还有哪些？？

Answer 2

procedure TForm1.N11Click(Sender: TObject);
var
  s:pchar;
begin
  getmem(s,256);
  GetMenustring(Mainmenu1.Handle,Tmenuitem(Sender).MenuIndex,s,256,MF_BYPOSITION);
  showmessage(s);
  freemem(s);
end;

Answer 3

procedure TForm1.N21Click(Sender: TObject);
begin
showmessage((sender as tmenuitem).caption);
end;

Answer 4

ghyghost(爱国人士【论坛秀】CSDN秀工厂-周周秀不断) 的可以实现

Answer 5

Edit1.Text:=(Sender as TMenuItem).Caption;