Frames en un paquete
 

Hola estoy intentando en la aplicación principal mostrar los frames que estan almacenados en un paquete (que cargo de forma dinamica):


Código Delphi [-]
var
Modulo: HModule;
ClaseFrame: TCustomFrameClass;
FrameC: TFrame;
begin
Modulo:=LoadPackage('FramePru.bpl');
if Modulo<>0 then
begin
ClaseFrame:=TCustomFrameClass(GetClass('TfraVerde'));
if ClaseFrame<>Nil then
begin
FrameC:=TFrame(ClaseFrame.Create(Application));
FrameC.Parent:=Self;
FrameC.Align:=alBottom;
FrameC.Height:=200;
FrameC.Visible:=True;
end;
end;





Pero al ejecutarlo me da el siguiente error:

Project Prueba.exe raised exception class EConverErro with message 'Cannot assign a TFont to a TFont'.


El error lo da al asignar Código Delphi [-]FrameC.Parent:=Self;




Si modifico la sentencia Código Delphi [-]FrameC:=TFrame(ClaseFrame.Create(Application));

por Código Delphi [-]FrameC:=TFrame(ClaseFrame).Create(Application);

me da un error de Access violation at address...

Algun tipo de sugerencia, muchas gracias.:D

FrameC:=TFrame(ClaseFrame).Create(Self);

Por lógica, yo pondría el dueño y el padre al mismo control, en este caso el propio Form donde se creará el frame.

Saludos

Hola
Lepe aprovecho para aprender.
Aqui veo algo extraño:
El parent no deberia ser el form?., es asi o me equivoco.?

Código Delphi [-]
FrameC:=TFrame(ClaseFrame).Create(Self);
FrameC.Parent:=Self; // esta linea, no debería de ser el Form?

Saludos

Modificado:

Código Delphi [-]
 
 
var
  Modulo: HModule;
  ClaseFrame: TCustomFrameClass;
  FrameC: TFrame;
begin
  Modulo:=LoadPackage('FramePru.bpl');
  if Modulo<>0 then
    begin
    ClaseFrame:=TCustomFrameClass(GetClass('TfraVerde'));
    if ClaseFrame<>Nil then
      begin
      FrameC:=TFrame(ClaseFrame.Create(Self));
      FrameC.Parent:=Self;
      FrameC.Align:=alBottom;
      FrameC.Height:=200;
      FrameC.Visible:=True;
      end;
    end;

Mismo error en la misma linea.

Hola
Yo de esto no se, el maestro es Lepe, pero me parece que deberia de ser el parente el form en el que se hospeda.

Código Delphi [-]
var
  Modulo: HModule;
  ClaseFrame: TCustomFrameClass;
  FrameC: TFrame;
begin
  Modulo:=LoadPackage('FramePru.bpl');
  if Modulo<>0 then
    begin
    ClaseFrame:=TCustomFrameClass(GetClass('TfraVerde'));
    if ClaseFrame<>Nil then
      begin
      FrameC:=TFrame(ClaseFrame).Create(Form1); // el form donde se crea
      FrameC.Parent:=Form1; // el form donde vive
      FrameC.Align:=alBottom;
      FrameC.Height:=200;
      FrameC.Visible:=True;
      end;
    end;

Saludos

En este caso Self y Form1 son el mismo, ya que este codigo se ejecuta desde el Form1.

Hola
Muy cierto, lo he probado de la dos formas y funciona, algo mas que aprendi.
Saludos

De esta forma si tira:

Código Delphi [-]
 
Var
  Modulo: HMODULE;
  AClass: TPersistentClass;
begin
  Modulo:=LoadPackage('Segundo.bpl');
  if Modulo<>0 then
    begin
    AClass:=GetClass('TfrmSegundo');
    if AClass<>nil then
      begin
      if Assigned(FrameC) then
        FrameC.Free;
      FrameC:=TFrame(TComponentClass(AClass).Create(Self));
      FrameC.Parent:=Self;
      FrameC.Align:=alClient;
      FrameC.Visible:=True;
      end;
    end;
end;

FrameC esta declarado en la parte publica del formulario como TFrame. :)