Carregar classe do tipo TPersistent din�micamente

Question

Ol�,� o seguinte eu j� vi que � poss�vel carregar um formul�rio din�micamente usando algo parecido com:[code:1:11b81a460d]function CriarFormPeloNomeDaClasse(const ONomeDaClasse: TFormClass): TForm;var...

Giordanocwb · Answer

Para carregar uma classe do tipo TPersistent dinamicamente, � mais simples que o formul�rio, basta:

var
  classe: TPersistentClass;
  objeto: TPersistent;
begin
  classe := FindClass(�TClassePersistente�);

  if Assigned(classe) then //se encontrou a classe
    objeto := classe.Create;
end;

Detalhe, para que sua classe seja encontrada, voc� deve registrar a sua classe, o melhor lugar para fazer isso � no initialization da unit onde a sua classe se encontra. N�o se esque�a de tirar o registro da classe no finalization ok!!!

initialization
  RegisterClass(TClassePersistente);
finalization
  UnRegisterClass(TClassePersistente);

Anderson.uem · Answer

Obrigado giordanocwbOlha estou com uma d�vida.Quando eu mando criar um form din�micamente [code:1:6405788c4b]function CriarFormPeloNomeDaClasse(const ONomeDaClasse: TFormClass): TForm;var  Classe: TFormClass;begin  Classe := TFormClass(FindClass(ONomeDaClasse));  Result := Classe.Create(Application);end;[/code:1:6405788c4b]ele n�o passa pelo constructor da classe em quest�o. Voc� sabe me dizer o porque? ObrigadoAnderson Rodrigues...

Giordanocwb · Answer

Verifique se voc� colocou a diretiva override no constructor do formul�rio. T+...

Anderson.uem · Answer

Obrigado Giordano...

F�rum Carregar classe do tipo TPersistent din�micamente #349826