Ver Mensaje Individual
  #7  
Antiguo 28-11-2007
Avatar de Cecil
Cecil Cecil is offline
Miembro
 
Registrado: may 2007
Posts: 97
Reputación: 18
Cecil Va por buen camino
Pues mira, lo que necesitaba era crear un formulario a partir de el nombre de su clase, y lo he hecho de la siguiente manera:

Código Delphi [-]
function CrearForm(sForm: String): TForm;
var
  PcClase: TPersistentClass;
begin
{
  Para que funcione esta función, debemos de Registrar la Clase del Formulario en el Formulario principal
  como en el ejemplo siguiente:

  initialization
    RegisterClass( TFormEditAgentes );

  finalization
    UnregisterClass( TFormEditAgentes );
}

  Result := nil;
  
  PcClase := GetClass( sForm );

  if Assigned( PcClase ) then
    Result := TFormClass( PcClase ).Create( Application );
end;

Si te fijas, al GetClass le paso como parámetro un string, que es el nombre de la clase del formulario y ya básicamente queda crearlo. Espero resolver tus dudas
__________________
"There is nothing either good or bad, but thinking makes it so" William Shakespeare.
Responder Con Cita