Delphi/Lazarus: Welches Control hat ein PopUp-Menü aufgerufen? Sender von TPopupMenu?

Ja, es gibt eine viel leichtere Möglichkeit. Und zwar stellt TPopupMenu die Property PopupComponent zur Verfügung. In dieser Eigenschaft ist immer gespeichert, von welcher Komponente das PopUp zuletzt aufgerufen wurde. 

Hier ein kleines Beispiel:

if PopupMenu1.PopupComponent=ListView1 then begin
   ShowMessage('Aufgerufen von ListView1');
end;

if PopupMenu1.PopupComponent=ListView2 then begin
   ShowMessage('Aufgerufen von ListView2');
end;

if PopupMenu1.PopupComponent is TListView then begin
   ShowMessage('Aufgerufen von einer ListView');
end;

Wir fragen hier in den ersten Beispielen direkt ab, ob von ListView1 oder ListView2 aufgerufen wurde. Das dritte Beispiel reagiert allgemein immer dann wenn PopupComponent eine ListView ist -  also sowohl bei ListView1 als auch bei ListView2.
22.06.2013 um 16:44