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]
