Llamar evento sabiendo el nombre

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