Aufrufer eines PopUp-Menüs ermitteln

[stahli]

als Beispiel:

Delphi-Quellcode:

procedure TdmlOlympic.MIGamePaperClick(Sender: TObject);
var
  PanelGame: TodPanelGame;
begin
  if PopupMenuGame.PopupComponent is TodPanelGame then
  begin
    PanelGame := PopupMenuGame.PopupComponent as TodPanelGame;
    PanelGame.TuWas;
  end;
end;