TNotifyEvent a Cadena?

[[Al González]]

Empezado por movorack

[...] obtener el nombre a partir del TNotifyEvent [...]Me queda la duda por qué desde el componente nunca pude obtener el nombre.

Hola Miguel.

Tal vez es un poco tarde, pero te puede servir.

Un método, como valor procedimental (cual es el caso de un TNotifyEvent), consiste de dos punteros o direcciones de memoria: Una es la dirección del método en sí (en qué byte de la memoria inicia su código máquina) y otra es la dirección de memoria del objeto con el que ha de ejecutarse dicho método.

Para facilitar las cosas, Delphi cuenta con el tipo genérico TMethod:

Código Delphi [-]
type
  TMethod = record
    Code, Data: Pointer;
  end;

El campo Code es la dirección de memoria del código ejecutable del método y Data es la dirección de la instancia de objeto con la cual ha de ejecutarse. Puedes hacer un molde de tipo con TMethod para obtener alguno de los dos valores.

Ahora, observa lo que dice la ayuda de Delphi sobre MethodName:

class function MethodName(Address: Pointer): ShortString;

[...]

If Address does not point to a published method of the object, MethodName returns an empty string.

Como dice la ayuda, MethodName devuelve una cadena vacía si el parámetro dado no apunta a un método publicado del objeto. Publicado significa que se encuentre declarado bajo la visibilidad Published de una clase (sin olvidar que dicha visibilidad es la predeterminada en formularios y otras clases derivadas de TPersistent). Hasta aquí bien.

La parte que no se cumple está en "of the object", por lo que MethodName te funcionó solamente cuando lo llamaste con el formulario, ya que el manejador de eventos consultado pertenece a la misma clase del formulario. En pocas palabras no es lo mismo llamar a Formulario.MethodName que a Componente.MethodName.

Si tienes un valor método, es decir, Code + Data, y Code es un método publicado, tendrás que preguntarle al objeto Data por el nombre de ese método. Solamente la clase (o las clases) a la que pertenece Data podrá darte su nombre. Entonces, para obtener el nombre del método desde el interior del componente es necesario descomponerlo en su Code y Data, preguntándole a Data cuál es el nombre de Code:

Código Delphi [-]
Procedure TKPlAccionItem.SetEvento (Const Value :TNotifyEvent);
Begin
  FEvento := Value;

  If Assigned (Value) Then
    With TMethod (Value) Do
      FNomEve := TObject (Data).MethodName (Code);
End;

Cabe mencionar que MethodName es un método de clase, es decir, ejecutado por la clase a la que pertenece Data, como si la expresión fuera "TForm1.MethodName (ManejadorDeclaradoEnTForm1)".

Para finalizar, decir que a partir de Delphi 2010, gracias a la reflexión extendida (nueva RTTI), algunas de estas cosas pueden realizarse con mayor facilidad.

Espero no haberme "enrollado" demasiado.

Saludos.

Al González.