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
miFrame : TFrame;
...
procedure TPrincipalForm.JvXPBar5ItemClick(Sender: TObject;
Item: TJvXPBarItem);
begin
miFrame.Free;
Case Item.Index of
0:begin miFrame:=TOficodasFrame.Create(nil);
end;
1:begin miFrame:=TBodegaFrame.Create(nil);
end;
2:begin miFrame:=TNucleosFrame.Create(nil);
end;
3:begin 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.