Porque no la encuentra?

[Migpal]

Tengo la siguiente linea de codigo:

Var
TPC : TPersistentClass;
Begin
TPC := FindClass('TPrueba');
end;

me vota el error que la clase no se encuentra, TPrueba es un form simplemente, porque no la encuentra?

[jmariano]

Puede que sea porque la clase no ha sido registrada. Prueba a registrar el formulario en la parte "initialization" de éste con el método "RegisterClass".

Código Delphi [-]
type
  TPrueba = class(TForm)
    ...
  end;

initialization
  RegisterClass(TPrueba);

Saludos!

[Migpal]

si funciono, pero me queda la duda, si se crea una forma tal cual new->new form en el proyecto, no queda registrada de una vez la clase?, que errores me podria generar al registrarla cuando se inicializa?, porque unas si encuentra y otras no?

hay un oscuro mundo en este compilador.......

[jmariano]

Pues nop, las clases sobre los formularios no quedan registradas (o, almenos, falla la función "FindClass" si no se registran explícitamente). Las únicas clases que quedan registradas son las que contienen los formularios y los módulos de datos (y siempre que éstas tengan la propiedad "Name" establecida).

Saludos!