Fórum Pesquisar Função num form #368875

Function ExisteFuncao (MetodoName : String) : Boolean;
Var Funcao : TnotifyEvent;
   Begin

       Result := False;

       TMethod (Funcao).Code := MethodAddress(MetodoName);//Retorna um ponteiro para o método caso o mesmo exista;

           TMethod (Funcao).Data := Self;

           If TMethod (Funcao).Code <> Nil Then

                  Result := True;//Encontrou o método

   End;

Você tbm pode usar a função MethodAdress que retorna um ponteiro para a função espeficificada. 

Function ExisteFuncao (const MetodoName:String;formulario:Tform) : Boolean;
  Var Funcao : TnotifyEvent;
   Begin
     Result := False;
     TMethod (Funcao).Code := formulario.MethodAddress(MetodoName);
     If TMethod (Funcao).Code <> Nil Then
       Result := True;//Encontrou o método
   End;

procedure TForm1.Button1Click(Sender: TObject);
Var
Funcao : TnotifyEvent;
MetodoName:String;
begin
MetodoName:=´VisibilidadePublished´;
if ExisteFuncao(MetodoName,form2) then
   Showmessage(´O Método <´+MetodoName+´> Achei pq é published´)
else
  Showmessage(´O Método <´+MetodoName+´> Não achei mas pode existir em Outro Escopo´);

MetodoName:=´VisibilidadePublica´;
if ExisteFuncao(MetodoName,form2) then
   Showmessage(´O Método <´+MetodoName+´> Achei pq é published´)
else
  Showmessage(´O Método <´+MetodoName+´> Não achei mas pode existir em Outro Escop0´);
end;

Você tbm pode usar a função MethodAdress que retorna um ponteiro para a função espeficificada.