Ver Mensaje Individual
  #6  
Antiguo 30-11-2010
Ledian_Fdez Ledian_Fdez is offline
Miembro
 
Registrado: jun 2006
Ubicación: Ciudad Habana, Cuba
Posts: 242
Reputación: 20
Ledian_Fdez Va por buen camino
Corrigiendo código

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

...

// según lo que quiero mostrar
procedure TPrincipalForm.JvXPBar5ItemClick(Sender: TObject;
  Item: TJvXPBarItem);
begin
 if assigned(miFrame) then
   begin
    miFrame.Free;
    miFrame:= nil;
   end;
 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;

Cita:
Recuerden:

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