Guardar Config. del formulario en BD

[DANY]

lo estoy grabando en un campo text de sql server, la grabacion funciona bien, el problema lo tengo cuando construyo el formulario. Muestro como creo los formularios, qu son MDIChild.

Código Delphi [-]
procedure CrearFormulario(ClaseFormulario : TFormClass; var Formulario);
var PermisosFormularios: TPermisosFormularios ;
    Stream: TStringStream ;
begin


  if TComponent(Formulario) = nil then
      Application.CreateForm(ClaseFormulario,Formulario)
  else
  begin
    TForm(Formulario).WindowState := wsNormal;
    TForm(Formulario).Show;
  end;

// Hasta aca lo creo como siempre.
  try
    PermisosFormularios := TPermisosFormularios.CrearParaPonerPermisos(TComponent(Formulario).Name ) ;
    TComponent(Formulario) :=StringToComponent(PermisosFormularios.Propiedades ) ;// aca me da el error
  finally
    FreeAndNil(PermisosFormularios );

  End;


end;

El error es: class TFPlanillaMarcas not found.
Seguro me estoy ahgando en un vaso de agua (del que estoy viendo la mitad vacia).
Muchas gracias por su valioso tiempo.

[waltergomez]

No lo probe pero estimo que funcionara. Formulario es de tipo TCustomForm no necesitas hacer tanto casting.

Código Delphi [-]
procedure CrearFormulario(ClaseFormulario : TFormClass; var Formulario : TCustomForm ?);
var PermisosFormularios: TPermisosFormularios ;
    Stream: TStringStream ;
begin


  if not Assigned(Formulario) then
      Application.CreateForm(ClaseFormulario,Formulario)
  else
  begin
    Formulario.WindowState := wsNormal;
    Formulario.Show;
  end;

// Hasta aca lo creo como siempre.
  try
    PermisosFormularios := TPermisosFormularios.CrearParaPonerPermisos(Formulario.Name) ;


    RegisterClass(TFPlanillaMarcas);

// Esta asignacion no la entiendo, pero igual

    Formulario := StringToComponent(PermisosFormularios.Propiedades ) ;// aca me da el error
  finally
    FreeAndNil(PermisosFormularios );

  End;


end;

Salu2,

[DANY]

en la linea de asignacion que no entiendes ahora me da error que los componentes ya estan creados, y es medio obvio. pero como llamo al metodo
para crear el formulario ??.

pasandole como parametro: StringToComponent(PermisosFormularios.Propiedades ))

[DANY]

la unica manera fue, como decia roman en un foro que consulte al respecto redefinir el create del form. Si no, no encontre la forma de asignar el contenido del Blob de la BD al Form.
Este es el Codigo:

Código Delphi [-]
constructor TfPlanillaABM.Create(AOwner: TComponent);
var    Stream: TStringStream ;
       PermisosAColocar: TPermisosUsuariosFormularios ;
begin

  CreateNew(AOwner);
  PermisosAColocar := TPermisosUsuariosFormularios.CrearParaColocarPermisos(FormularioActivo,UsuarioActivo.CodigoUsuario ); 
  if PermisosAColocar.ExistenPermisosDeUsuarioEnFormulario  then
  Begin
    try
      Stream := TStringStream.Create(PermisosAColocar.DevuelveCadenaStringDelFrmulario );
      Stream.ReadComponent(Self);

    finally
      FreeAndNil(Stream);
      FreeAndNil(PermisosAColocar); 
    End;
  End
  Else
    inherited Create(AOwner);

  PrepararFormulario ;
  
end;

en donde permisos a colocar hace una consulta a la base que lee el campo blob guardado y lo devuelve como string.
Muchas gracias por la ayuda y pos su tiempo