Delphi/Lazarus: Which Control has called a PopUp Menu? Sender of TPopupMenu?

Yes, there is a much easier way. Namely, the property PopupComponent provided by the TPopupMenu itself. In this property, it is always saved, which component has called the PopUp for the last time.

Here's an example:

if PopupMenu1.PopupComponent=ListView1 then begin
   ShowMessage('Called from ListView1');
end;

if PopupMenu1.PopupComponent=ListView2 then begin
   ShowMessage('Called from ListView2');
end;

if PopupMenu1.PopupComponent is TListView then begin
   ShowMessage('Called from a ListView');
end;

In the first examples, we are asking directly whether it has been called by ListView1 or ListView2. The third example generally reacts when the popup is called by a ListView - so it reacts to both, ListView1 as well as ListView2. 
2013-09-24 at 18:41

var

   dbGridX : TDBGrid;

begin

   if not (FindComponent(PopupMenu1.PopupComponent.Name) is TDBGrid) then Exit;

   dbGridX := TDBGrid(FindComponent(PopupMenu1.PopupComponent.Name));

   ...

end;
2019-07-28 at 16:53