Conocer el componente que lanza un popup
 

Tengo creado un tScrollBox que contiene varios objetos tjvStaticText, a esos objetos (los tjvStaticText) les asigno un popupmenu que a su vez contiene los menus asociados a Taction, cuando ejecuto el método taction.execute como puedo saber cual de los objetos tjvStaticText lanzó el popup.

OJO: todo esos componentes los creo en tiempo de ejecución.

Pensé que debia usar el (sender) así:

Código Delphi [-]
procedure Tform.AccionExecute(Sender: TObject);
begin
If Sender is tjvStaticText Then
   EjecutarProcedimiento(tjvStaticText(sender).tag);
end;

Pero al probar resulta que "sender" no es tjvStaticText (es un tAction :confused: ), como puedo saber dentro el execute de la acción que objeto desplegó el popup

Acepto ideas y sujerencias ya que no tengo la menor idea de como resolver esto, muchas gracias. :o

Sigo sufriendo...

La clase TAction tiene la propiedad: ActionComponent que segun dice la ayuda de Delphi:

Deberia apuntar al componente que llamó la acción: el TMenuItem !!!!!

Un componente que no puede tener el foco podrá lanzar eventos???

La desesperaciónera tal que buscando en un foro EN RUSO :

http://www.sql.ru/forum/actualthread.aspx?tid=395220

encontré esto:

Código Delphi [-]
TPopupMenu(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent).PopupComponent

Que parece ser el componente que realmente inicio la acción.

Despues de las pruebas de rigor FUNCIONA :D :D :D

Quedó así:

Código Delphi [-]
procedure TfCitas.acEnviarAListaEsperaExecute(Sender: TObject);
begin
If TPopupMenu(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent).PopupComponent is TSNMCCita Then
   Begin
   With TSNMCCita(TPopupMenu(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent).PopupComponent) do
      Lista.EnviarAListadeEspera(IdArea,IdPaciente,IdCita);
   JvClock1Alarm(Sender);
   End;
end;