F�rum MethodAddress - descobrir se m�todo existe #381431

14/07/2010

Boa tarde, algu�m sabe como obter o ponteiro de m�todos nativos ? o c�digo abaixo s� funciona para m�todos que eu crie, eu gostaria de obter o ponteiro de m�todos existentes em edit, combobox, form etc procedure TForm2.Button1Click(Sender: TObject);
var
   routine : TMethod ;
Begin    //routine.data:=pointer(edit1) ;
   //routine.Code:=edit1.MethodAddress('setfocus') ; // nome do metodo    // usando como acima, esta retornando NIL
   routine.data:=pointer(form2) ;
   routine.Code:=Form2.MethodAddress('teste') ; // nome do metodo
   if routine.Code <> nil then
      begin
      ShowMessage('OK');
      end; end;
Grato

Eric

Curtir t�pico

+ 0

Responder

Posts

14/07/2010

Marco Salles

pq vc n� uisa RTTI

Responder

Gostei + 0

14/07/2010

Eric

Boa tarde Marco, vou pesquisar sobre Runtime Type Information (RTTI), mas sabe como utilizo para o exemplo que descrevi ? achei um artigo aqui mas n�o me ajudou.

Responder

Gostei + 0

14/07/2010

Marco Salles

Examplo

procedure TForm3.Button2Click(Sender: TObject);
var
  // uses RTTI Delphi 2010
  Ct:TRttiContext;
  Tipo:TRttiType;
  Met:TRttiMethod;
begin
Tipo:=CT.GetType(form3.ClassType);
  for Met in Tipo.GetMethods do
    if Met.Name = 'Edit1Exit' then  // Por exemplo testando se tem Evento OnExit do Edit 
       Showmessage('tem');
end;

Responder

Gostei + 0

14/07/2010

Eric

Marco, obrigado novamente, mas estou usando Delphi 2009, ocorreu erros de sintaxe. seguindo o caminho abaixo, sabe como eu continuo ? Count := GetPropList(edit1.ClassInfo, tkMethods, nil); // retornou 79

Responder

Gostei + 0

14/07/2010

Marco Salles

bem teria que rever meus bizuz antigos .. Agora � so Delphi2010 Mas antes desta engenhoca toda , pq que vc n�o coloca esses m�todos na sec��o published Acho que da certo usando simplesmente seu codigo inicial

Responder

Gostei + 0

15/07/2010

Pedro Saraiva.

Programa com c�digos fontes? Ola pessoal, voc� programador que quer um aplicativo exemplo para fins comerciais, tenho uma dica, compre o WinPhar que vem com todos os c�digos fontes e fa�a um programa baseado nele, sim ele tamb�m v�m com todos os componentes para instalar, voce al�m de ganhar um programa complidao, ganha tb os seus c�digos fontes e seus componentes. O programa foi desenvolvido em Delphi 7 com banco de dados paradox, e custa apenas 20,00 reais
deem uma olhadinha ai no produto
http://produto.mercadolivre.com.br/MLB-149256966-winphar-2008-sistema-para-farmacias-e-drogarias-_JM
e ente em contato pelo e-mail pedroluissaraiva@yahoo.com.br.!

Responder

Gostei + 0

05/03/2018

Henrique Marti

Sei que j� faz uns anos que essa pergunta foi feita, mas vou responder para aqueles que enfrentarem esse problema:

Segundo a documenta��o (http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.TObject.MethodAddress) o m�todo deve ser PUBLISHED para que o "MethodAddress" funcione.

Note: You can use MethodAddress for published methods only.

Testei no pr� hist�rico DELPHI 7 e funcionou (a pesar da documenta��o que linkei ser no Delphi Tokyo)

Boa sorte aos aventureiros como eu!

Responder

Gostei + 0