Fórum Ajuda com class procedure #313578

Bom dia a todos.

Estou precisando de um ´help´ de voces. :D


Tenho uma CLASS PROCEDURE em um form, ate ai esta tudo ok.
Irei usar como exemplo os nomes:

form = TfrmTeste (classe do form) / frmTeste (nome do form)
class procedure = pTeste

Para chamar minha procedure de outro formulario, incluo o form no USES e uso o comando:

TfrmTeste.pTeste;

Esta funcionando corretamente, porem como irei ter essa class procedure em varios forms,
gostaria de criar uma procedure onde eu passaria a classe do form e essa procedure ou algum
outro parametro para que chamasse a class procedure.

O que gostaria de fazer seria mais ou menos isso:

//*nao sei qual o tipo correto para se utilizar no parametro
procedure chamaClassProc(tfrm :TComponentClass);
begin
tfrm.pTeste;
end;

O proposito dessa procedure seria para coloca-la em um componente onde seu parametro
na verdade fosse uma propriedade do componente. A criação do componente em si
nao é problema, so preciso conseguir fazer esse procedure de chamada ´generica´ para
a class procedure.

Obrigado. :wink: