[mamcx]

Absolutamente que se puede. Y no, no es algo "magico" de los lenguajes, de hecho Delphi hace PRECISAMENTE eso cuando crea los formularios. El concepto es un patron (pattern) muy usado que se llama el Class Factory.

La explicacion a lo bestia es mas o menos asi:

Un "factory" es una clase de control que en base a un parametro determina la clase a construir"

PD. Si quieres una definicion mejor busca "Factory Pattern" o "Builder Pattern" en google....

Tengo un framework basado en http://www.devexpress.com/?section=/...ctices/SAP-VCL (si te estudias este articulo vas a entender mejor) que lo he mejorado un poquito

La implementacion es mas o menos:

Código Delphi [-]
 
 //1 Crea una clase base o una interface:
 type
   TfraBaseModulo = class(TfraBase)
    .
    .
 
 //2 Crea las subclases o usa la interface
 type
   TfraInventarios = class(TfraBaseModulo)
 
 type
   TfraGrupos = class(TfraBaseModulo)
 
 //3 Crea una clase "controladora" que se encarga de crea los objetos
 
 //3.1 Metodo "a lo facil que no tengo tiempo" util para pocas subclases
 // Desventaja: Cada vez que agreges una clase toca agregar el codigo en el creador de modulos
 
 type
   TAdministradorModulos = class (TInterfacedObject, IColeccion)
   .
   .
 function TAdministradorModulos.RegistrarModulo(const Nombre: string);
 var
   oInfoModulo: TInfoModulo;
 begin  
      if Modulo='Inventarios'
      begin
         result:=TfraInventarios.Create(...
      end;   
      if Modulo='Grupos'
       begin
          result:=TfraGrupos.Create(...
       end;   
 
 //3.2 Metodo "elegante que soy un genio" util para un numero indeterminado de clases
  // Desventaja: una 2-3 horas mas de programacion y pruebas 
 
 //3.2.1 Luego de la clase y sus metodos, agregar:
 // Una tecnica avanzada de Delphi: Se puede pasar la CLASE y no la INSTANCIA para dejar para despues la creacion
 
 initialization
   AdministradorModulos.RegistrarModulo('Inventarios',TfraInventarios...);
 
 //3.2.2 Hacer una funcion publica que carga el Administrador:
 // MUY similar a como funciona Application (es que Delphi hace lo mismo  )
 function AdministradorModulos: TAdministradorModulos;
 begin
   if FModuleInfoManager = nil then
   begin
     FModuleInfoManager := TAdministradorModulos.Create;
   end;//if
   Result := FModuleInfoManager;
 end;
 
 //3.2.3 Hacer una funcion de registro automatico de modulos o clases.. nota como usa la clase para crear los objetos. Se declara en la clase base
 
 TfraModuloBaseClass = class of TfraBaseModulo;
 
 procedure TAdministradorModulos.RegistrarModulo(const Nombre: string;
         ClassModulo: TfraModuloBaseClass....)
   oInfoModulo: TInfoModulo;
 begin
   // Create the module info and add it into the list
   oInfoModulo := TInfoModulo.Create(Nombre,ClassModulo,ACategoria,ATipoInstancia);
   Add(oInfoModulo);
 end;
 
 //3.2.4 Hacer una funcion dentro de la clase base o una ayudadora como hago en este caso, que crea la clase real
 procedure TInfoModulo.CrearModulo(Clase:TfraModuloBaseClass;AOwner:TComponent);
 begin
   FModulo:=Clase.Create(AOwner);
   FModulo.OnDestroy:=DoModuleDestroy;
   FModulo.Align := alClient;
 end;