eu tinha olhado, mas postei aqui para saber se há "alguma forma" de fazer. Alguém conhece ?
--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha <rubem.ro...@...> escreveu > > Olha o help! MethodAddress só funciona para métods published! > > Sds. > > > > De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em > nome de eric_developer > Enviada em: quarta-feira, 14 de julho de 2010 13:04 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] MethodAddress retornando NIL > > > > > > 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. > > 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 > > > > > > [As partes desta mensagem que não continham texto foram removidas] >
