TNotifyEvent a Cadena?

[[movorack]]

Es más... haciendo esta modificación para manejar el TNotifyEvent en lugar del objeto, consigo obtener el nombre a partir del TNotifyEvent (cosa que no me funcionaba en el componente).

Código Delphi [-]
procedure TFrmTestPlanEjecD5.BtnAddAccionClick(Sender: TObject);
  var
    lEvento : TNotifyEvent;
    lAccion : TKplAccionItem;
    lNomEve : string;
    lNomNot : string;
begin
  lAccion := KPlGenDefi.Acciones.Add;
  lAccion.Nombre := 'Accion1';
  lAccion.Evento := BtnTontoClick;
  lEvento := BtnTontoClick;
  lNomEve := MethodName(@lAccion.Evento);
  lNomNot := MethodName(@lEvento);
  ShowMessage(Format('lAccion.NomEve : %s -- lNomEve : %s -- lNomNot : %s',
                     [QuotedStr(lAccion.NomEve),
                      QuotedStr(lNomEve),
                      QuotedStr(lNomNot)
                      ]));
end;

Edito: Acabo de ver en Classes.pas que TNotifyEvent = procedure(Sender: TObject) of object... he estado dando vueltas en circulo.

[[movorack]]

Bueno... a la final no encontré una forma de obtener el nombre dentro del componente y pues agregué al componente un procedimiento para procesar los nombres de las acciones dentro del formulario. Que ahí si funcionaba el obtener el nombre a partir del TNotifyEvent.

En el componente:

Código Delphi [-]
type
  ..
  TKplOnGetNomAcciones = procedure(Sender : TObject; var Acciones : TKPlAccionList) of object;
  ..
  
  TKPlGenDefi = class(TComponent)
  private
    ..
    FAcciones: TKPlAccionList;
    FOnGetNomAcciones: TKplOnGetNomAcciones;
    procedure SetOnGetNomAcciones(const Value: TKplOnGetNomAcciones);
    ..
  published
    ..
    property OnGetNomAcciones : TKplOnGetNomAcciones read FOnGetNomAcciones write SetOnGetNomAcciones;
    ..
  end;

..
Implementation
..

procedure TKPlGenDefi.GenerarDefinicion;
begin
  ..
  //Para obtener el nombre de la acción se debe estar en la unidad
  //donde se encuentra definido ya que desde el componente no
  //se obtiene el nombre.
  if Assigned(FOnGetNomAcciones) then
    FOnGetNomAcciones(Self, FAcciones);
  ..
end;

y en el programa de pruebas:

Código Delphi [-]
procedure TFrmTestPlanEjecD5.KPlGenDefiGetNomAcciones(Sender: TObject; var Acciones: TKPlAccionList);
  var
    i : Integer;
begin
  for i := 0 to Acciones.Count - 1 do
  begin
    if Assigned(Acciones.Items[i].Evento) then
      Acciones.Items[i].NomEve := MethodName(@Acciones.Items[i].Evento);
  end;
end;

De esta manera, ya tengo el nombre de la acción y la podré llevar al XML como lo he intentado desde la semana pasada.

Muchas gracias Lepe por tu colaboración.

Me queda la duda porque desde el componente nunca pude obtener el nombre.

[[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.

[Casimiro Noteví]

Empezado por michaeldeleon

Necesito hacer una calculadora en delphi pero soy nuevo y no se mucho en delphi por favor ayudenmen..

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

[[movorack]]

Empezado por Al González

Hola Miguel. [...] Espero no haberme "enrollado" demasiado.[...]

Muy chevere que lo llamen a uno por su nombre de pila en la internet ... Y no un rollo como este era el que necesitaba. Además que queda como referencia para muchas otras personas que puedan tener la misma duda.

Dejame decirte que ayer cuando ví la respuesta me gustó muchisimo leerla, ya era muy tarde y no hice las pruebas. Pero acabo de hacer la modificación al SetEvento y funciona muy bien. De verdad que gracias no solo por ayudarme a resolver el problema, sino a entender porque sucedia.

Empezado por Casimiro Notevi

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Ayer cuando ví el mensaje de la calculadora me quedé como

Muchas gracias.

[[Al González]]

En estos días, pocas cosas relacionadas con la programación me dan tanto gusto como saber que he escrito algo que le sirve a otras personas. A colegas Delphi que por ser diversas razones pueden acceder a la realización profesional que a otros se nos niega.

Por cierto, aun en Internet somos personas con nombre, apellido y sentimientos. Suelo nombrar a mis amigos como ellos prefieran, de la misma manera en Internet como presencial y telefónicamente.

Saludos y que bueno que ha servido de algo mi intervención.