What is the component a popup menu click originated from

Question

Having a popup menu attached to several components on a form (buttons, but also things like TCharts), I would like to know which component was right clicked to start the popup menu in the first place.

The Sender parameter of the click method just points to the TMenuItem, its parent to the popup menu (or the parenting menu item).

How do I get the originating component?

Answer 1

Did you mean PopupMenu1.PopupComponent ?

Answer 2

You can get the caller component within the click event of the TMenuItem of a PopupMenu by

Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;

An Example of a PopupMenu which is assigned to several list boxes and solves the export to file functionality:

procedure TForm1.mniExportFileClick(Sender: TObject);
var Caller: TObject;
begin  
  if SaveTextFileDialog1.Execute then
  begin
    Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;
    (Caller as TListBox).Items.
      SaveToFile(SaveTextFileDialog1.FileName,
        StandardEncodingFromName(
          SaveTextFileDialog1.Encodings[SaveTextFileDialog1.EncodingIndex]));
  end;
end;