Saber a que procedimiento se llama en el evento de un objeto

[APO]

Empezado por roman

A ver, intenta así:


Código Delphi [-]
var
Method: TMethod;

begin
Method := TMethod(btnAceptar.OnClick);
if Method.Code = @TForm1.ConfigurarForm then
ShowMessage('Mi evento OnClick es ConfigurarForm');
end;





// Saludos

CORRECTO!

Muchas gracias Roman! Eso es justamente lo que quería. Y con el código que has puesto funciona perfectamente. Eres un crack!

Gracias a todos por vuestro tiempo. Un saludo.

[[maeyanes]]

Hola...

Ese código que usó roman, es un ejemplo de uso de RTTI (Información de Tipos en Tiempo de Ejecución, por sus siglas en inglés).

Te recomiendo que leas todo lo que puedas sobre el tema y verás que puedes conseguir muchas cosas más.



Saludos...

[ecfisa]

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.