Foros Club Delphi - Ver Mensaje Individual - Saber a que procedimiento se llama en el evento de un objeto

ecfisa · #7 14-06-2011

Hola.

Otra forma puede ser:

Código Delphi [-]function GetObjMethodName(AObj: TObject;const OrigName: string): string;
var
  Mtd: TMethod;
begin
  Mtd:= GetMethodProp(AObj,OrigName);
  if (Mtd.Data <> nil) and (Mtd.Code <> nil) then
    Result:= TObject(Mtd.Data).MethodName(Mtd.Code);
end;

Ejemplo de llamada:

Código Delphi [-]  ShowMessage(GetObjMethodName(Button1, 'OnClick'));

Saludos.