Ver Mensaje Individual
  #3  
Antiguo 26-05-2006
DANY DANY is offline
Miembro
 
Registrado: nov 2003
Posts: 145
Reputación: 21
DANY Va por buen camino
Esto es lo que intente

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.
Responder Con Cita