RegisterClass em todos os forms

[Junior Maia]

Olá pessoal, fazendo uma pesquiza descobri que para eu acessar uma classe atraves de uma string eu tenho que ter essa classe previamente cadastrada. Eu trabalho com formulario padrão, dessa forma:

TForm_Padrao_Cadastro = class(TForm)

e todos os formularios de cadastro se derivam dela, da seguinte forma:

TCadastro_Pessoas = class (TForm_Padrao_Cadastro)

TCadastro_Fornecedores = class (TForm_Padrao_Cadastro)

....

e a assim por diante. Dessa forma para eu registar as classes eu tenho que fazer o seguinte:

Para eu registar a classe TCadastro_Pessoas eu tenho que fazer o seguinte, na unit UCadastro_Pessoas antes do "end." eu coloco o seguinte codigo:

initialization

RegisterClass(TFCadastro_Pessoas);

finalization

UnRegisterClass(TFCadastro_Pessoas);

Para eu registar a classe TCadastro_Fornecedores eu tenho que fazer o seguinte, na unit UCadastro_Fornecedores antes do "end." eu coloco o seguinte codigo:

initialization

RegisterClass(TFCadastro_Fornecedores);

finalization

UnRegisterClass(TFCadastro_Fornecedores);

A pergunta e a seguinte:

Teria como eu fazer esse registro na classe mae(TForm_Padrao_Cadastro), Tipo assim:

initialization

RegisterClass(Screen.ActiveForm.ClassType);

finalization

UnRegisterClass(Screen.ActiveForm.ClassType);

preciso fazer algo toda vez q eu crie um form derivado da classe mae (TForm_Padrao_Cadastro) eu não precise escrever o codigo para registar a classe. Obrigado.

[Jhonas]

Uso prático de RegisterClass na criação dinâmica de formulários

http://www.adrianoneres.com/artigos/registerClass.html

abraço