Código Delphi [-] var Method: TMethod; begin Method := TMethod(btnAceptar.OnClick); if Method.Code = @TForm1.ConfigurarForm then ShowMessage('Mi evento OnClick es ConfigurarForm'); end;
var Method: TMethod; begin Method := TMethod(btnAceptar.OnClick); if Method.Code = @TForm1.ConfigurarForm then ShowMessage('Mi evento OnClick es ConfigurarForm'); end;