如何取得TPopupMenu的选中的caption或者name

Question

如题 ：如何取得TPopupMenu的选中的caption或者name

Answer 1

procedure TForm1.asdfsadfd1Click(Sender: TObject);
var
  temp: TMenuItem;
begin
  temp := sender as TMenuItem;
  ShowMessage(temp.Caption);
  ShowMessage(temp.Name);
end;

Answer 2

同意上面 DainelLee(￥$￡ 吃肉的菜鸟 ￡$￥) 的，
TPopupMenu中的各项也是TMenuItem

Answer 3

Sender 的 name 或者是强制类型转换为 TmenuItem，获取 Caption。
同意 DainelLee(￥$￡ 吃肉的菜鸟 ￡$￥) 的做法。

Answer 4

同意 DainelLee(￥$￡ 吃肉的菜鸟 ￡$￥) 的做法。