Não consegui resolver e vou deixar isso de lado. Talvez o delphi não permita (mesmo me parecendo tão ilógico) ou é uma caixa preta até mesmo para uma lista de quase 5000 pessoas.
Obrigado aquelas que tentaram ajudar, há uns dias o Bruno da Embarcadero disse que era possivel, espero que um dia nos mostre como rsrs, e que não seja nada que dependa do Delphi 2010 ou 2020. Grato, Eric --- Em [email protected], "eric_developer" <developer.syst...@...> escreveu > > Boa tarde pessoal, > > alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu > criar o método "teste" para o form2, funciona, retornando o ponteiro. > > No lugar de form2, usarei componentes edit, combobox, etc e metodos > existentes. > > myCallMethod( edit1, 'SETFOCUS' ) ; > myCallMethod( form3, 'SETFOCUS' ) ; > > procedure TForm2.teste ; > begin > ShowMessage('OLA'); > end; > > > procedure TForm2.Button1Click(Sender: TObject); > var > routine : TMethod ; > Begin > > routine.data:=pointer(form2) ; > routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo > if routine.Code <> nil then > begin > ShowMessage('OK'); > end; > > end; > > Grato, > Eric Developer Systems >
