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
