关于动态生成菜单的事件的问题

Question

根据配置文件 生成多个动态的子菜单,菜单都有一个单击事件(都用一个事件),怎么根据菜单的名称 来相应这个单击事件啊?

Answer 1

procedure CommClick(Sender: TObject)
var
  mi : TMenuItem;
begin
  mi:=(Sender as TMenuItem);  //比如：
  if mi->Caption='退出' then
    Close;  //也可以判断mi的其他属性，比如Tag,.....
end;

Answer 2

这个的确好用!不过在实际应用中出现这样的情况
因为 菜单是根据 ini 文件所有的关键字得到的
现在
用Rini.ReadString('OnlineGame',mi.Caption,'');
却读不出ini文件的值