Fórum Registar classe automaticamente ao criar um formulario #373778

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:

[b:5f96406f54]TForm_Padrao_Cadastro = class(TForm)[/b:5f96406f54]

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

[b:5f96406f54]TCadastro_Pessoas = class (TForm_Padrao_Cadastro)
TCadastro_Fornecedores = class (TForm_Padrao_Cadastro)[/b:5f96406f54]
....
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:

[b:5f96406f54]initialization
RegisterClass(TFCadastro_Pessoas);
finalization
UnRegisterClass(TFCadastro_Pessoas);[/b:5f96406f54]

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:

[b:5f96406f54]initialization
RegisterClass(TFCadastro_Fornecedores);
finalization
UnRegisterClass(TFCadastro_Fornecedores);[/b:5f96406f54]

A pergunta e a seguinte:

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

[b:5f96406f54]initialization
RegisterClass(Screen.ActiveForm.ClassType);
finalization
UnRegisterClass(Screen.ActiveForm.ClassType);[/b:5f96406f54]

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.[color=green:5f96406f54][/color:5f96406f54][color=green:5f96406f54][/color:5f96406f54]