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
), 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.
