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.