Action gleichzeitig bei PopupMenu und MainMenu

[himitsu]

Delphi-Quellcode:

Procedure OnClick...(Sender: TObjekt);
Begin
  If Sender = MainMenu1Item Then {vom Memü} Else {das andere}

  If Sender = PopupMenu1Item Then {ebenfalls das Andere}
End;