Llamar evento sabiendo el nombre

[cbrrr]

Hola

Estoy creando unos componentes y me surge la necesidad (por eso de querer hacer funciones generales) de hacer una llamada a un método (evento) sabiendo sólo el nombre (en una cadena).

Gracias a este mensaje (http://stackoverflow.com/questions/4...ed-in-a-string) se cómo llamar a un método teniendo el nombre de éste en la cadena. Lo que pasa es que al ser un evento necesito saber si éste está asignado antes de invocarlo (para evitar esos AV molestos).

¿Alguna idea de cómo poder controlar si el evento está asignado?

Gracias

[ecfisa]

Empezado por cbrrr

¿Alguna idea de cómo poder controlar si el evento está asignado?

Hola cbrr.

Una forma es:

Código Delphi [-]
uses  TypInfo;

function MethodAssigned(const aObject: TObject; const MethodName: string): Boolean;
var
  Method: TMethod;
begin
  Method:= GetMethodProp(aObject, MethodName);
  Result:= Method.Code <> nil;
end;

Uso:

Código Delphi [-]
...
begin
  MethodName:= 'OnClick';
  if MethodAssigned(Edit1, MethodName) then
   ...

Saludos.

[cbrrr]

Y mira que conocía la función GetMethodProp de la TypInfo, pero no caí en él. Y ya que tiro de la RTTI, puedo usarlo para lanzar directamente el evento

Gracias

[Casimiro Notevi]

[offtopic]

Vaya, vaya... joe bar team y cbrrr

[/offtopic]

[LoPiTaL]

Hola,
Si estás usando Delphi 2010 o superior, tal vez te interese revisar la RTTI extendida, que permite hacer muchas más cosas que TypInfo y de forma más sencilla (más orientada a objetos). Simplemente incluye en el uses "RTTI", y añádete una variable de TRTTIContext, y verás cómo es más o menos sencillo:

Código Delphi [-]
//Ejemplo tomado de http://stackoverflow.com/questions/2...event-properly
function MethodAssigned(const aObject: TObject; const MethodName: string): Boolean;
var
  LContext: TRttiContext;
  LValue: TValue;
  LEvent: TNotifyEvent;
begin
  LValue:=LContext.GetType(aObject.ClassType).GetProperty(MethodName).GetValue(aObject);
  LEvent:=LValue.AsType();  //Los () son necesarios, para que el compilador distinga entre 
                                                           //llamar a AsType y lanzar el evento.
  if assigned(LEvent) then
    LEvent(Self);
end;

Un saludo,
LoPiTaL

[cbrrr]

Buenas LoPiTaL,

Efectivamente, ese enlace lo encontré buscando información por la web, pero como quiero que los componentes funcionen en versiones "viejas" de Delphi, esa solución no me sirvió (aunque está bien ponerla como documentación)

Gracias de nuevo