Falls es auch für andere noch von Interesse ist: Vermutlich möchte man ja auch noch wissen, worauf geklickt wurde
Delphi-Quellcode:
procedure Tfo~~.WMRMenuButtonUp(var Msg:TMessage);
begin
ShowMessage(MainMenu1.FindItem(Msg.LParam,fkHandle).Items[Msg.WParam].Name); // MenuItem Name
ShowMessage(MainMenu1.FindItem(Msg.LParam,fkHandle).Name); // Parent Name
end;