Ver Mensaje Individual
  #5  
Antiguo 30-11-2010
Ledian_Fdez Ledian_Fdez is offline
Miembro
 
Registrado: jun 2006
Ubicación: Ciudad Habana, Cuba
Posts: 242
Reputación: 18
Ledian_Fdez Va por buen camino
Post Mensaje de error 'Abstract Error'

Grasias LoPiTaL, de veras que eres un genio !!!. El código me quedo de esta forma como mas abajo le muestro.

Código Delphi [-]
public
    { Public declarations }
    miFrame : TFrame;

...

// según lo que quiero mostrar
procedure TPrincipalForm.JvXPBar5ItemClick(Sender: TObject;
  Item: TJvXPBarItem);
begin
 miFrame.Free;
 Case Item.Index of
   0:begin    // Oficodas
      miFrame:=TOficodasFrame.Create(nil);
     end;
   1:begin    // Bodegas
      miFrame:=TBodegaFrame.Create(nil);
     end;
   2:begin    // Nucleos
      miFrame:=TNucleosFrame.Create(nil);
     end;
   3:begin    // Consumidores
      miFrame:=TConsumidoresFrame.Create(nil);
     end;
 End;
 miFrame.Parent:=Panel1;
 miFrame.align:=alClient;
end;

Ahora tengo 2 nuevas preguntas:

1- Cómo podré solucionar este error que en ocaciones me da: 'Abstract Error'

2-No me libera realmente la memoria, lo he verificado en el administrador de tareas de windows. Cuando creo el frame me aumenta el uso de memoria, pero cuando lo libero (miFrame.Free) se queda igual. realmente ha liberado la memoria, acaso el administrador de tareas de windows no registra bien los valores de memoria?

Eternamente agradecido,
En espera de sus respuesta.

Ledian.
Responder Con Cita