Cita:
Empezado por Aprendiz
¿Existe alguna forma de llenar / obtener las clases (Formularios) disponibles en un proyecto en runtime?
|
No creo que esto sea posible. Después de todo, si lo fuera no necesitarías la fábrica. En algún momento debes hacer la asociación entre el nombre y la clase. El IDE lo hace automáticamente para las clases de los controles que insertas en un formulario pero para otras clases (descendientes de TPersistent) debes usar RegisterClass o RegisterClasses que a fin de cuentas es lo mismo (una fábrica).
Yo pienso que lo más prolijo es como indica
mamcx, hacer el registro en la sección
initialization de cada undad de formulario. Además, si te fijas método GetClase de la fábrica que puse:
Código Delphi
[-]
function TFabrica.GetClase(Nombre: String): TFormClass;
var
I : Integer;
begin
I := Lista.IndexOf(Nombre);
Assert(I <> -1, 'Clase no registrada');
Result := TFormClass(Lista.Objects[i]);
end;
puedes cambiar el Assert por
Código Delphi
[-]
Assert(I <> -1, 'La clase ' + Nombre + ' no está registrada');
de manera que si por alguna razón olvidas alguna, durante la ejecución detectarás inmediatamente cuál fue (por su nombre) y podrás hacer el cambio rápidamente.
// Saludos