Ver Mensaje Individual
  #2  
Antiguo 29-06-2012
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
No se me ocurre como puede hacerse de esa forma, es más, creo que debe hacerse al revés.

TNotifyEvent es en realidad un puntero a un método de otro objeto, a ver si lo aclaro, un "procedure (Sender:TObject) of object", así que, aunque puedas averiguar el nombre, puede que ni te sirva para nada, porque se te complicará todo.

Una cosa, es tener una lista de "procedure of objects" y que en "Evento:integer" en realidad guardes el índice de ese array (o lo que sea).

Lo más simple:
Código Delphi [-]
type Tprocs = procedure (Sender : TObject) of object;
var funciones : array [0..10] of Tprocs


begin

funciones[0] := objeto.metodo1;
funciones[1] := objeto.metodo2;
...

Obviamente funciones siempre se rellena en el mismo orden, por eso solo guardas el índice, que es un entero. Ni RTTI, ni traducciones, ni registerClass ni nada de nada.

Pienso que es lo más simple, pero al no ver el bosque, quizás no sea lo adecuado.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita