Ponteiro de metodo-exemplo

[shini 318]

Se alguem puder deixa um exemplo de código de ponteiro de metodo, agradeço.

[marcio.theis 3]

Particularmente não entendi... O que seria ponteiro método-exemplo ?

Teria como dizer melhor o que deseja fazer ?

[shini 318]

TRefreshMethod = procedure(aLista : TList; aLado : Byte) of Object;

 

declarar a classe com uma variavel do tipo criado acima

 

TClasse = class

private

Refresh : TRefreshMethod;

...

public

constructor newClass(aRefreshMethod : TRefreshMethod);

...

end;

 

atribuir a essa variavel Refresh (pode ser no construtor da classe) o método externo, criando a ligação entre os métodos

 

constructor TClasse.newClass(aRefreshMethod : TRefreshMethod);

begin

Refresh := aRefreshMethod;

end;

 

 

 

se tiver como alguem explica isso, ou tiver um exemplo mais simples;

[bdexterholland 0]

Na verdade, considerando um caso onde você estária utilizando uma classe já existente, com eventos comuns, bastaria fazer uma atribuição de um método a evento. No caso que você exemplificou, ACREDITO (MAS NÃO TENHO CERTEZA, se você puder esclarecer, beleza) você está tentando criar uma classe que é do tipo procedure. Em uma outra ocasião, eu precisei de uma função do tipo ponteiro que apontasse para a aba ativa, bastou criar um objeto do mesmo tipo da aba e atribuir esta aba ao objeto...

[shini 318]

Opa muito obrigado por respoder, você sabe algum site ou apostila que trate sobre esse assunto?