buena tarde espero y me puedan ayudar con el siguiente problema
Estoy trabajando con paquetes los cuales en su codigo mandan llamar a otros paquetes los cuales se cargan dinamicamente... mi problema es el siguiente...
cuando se ejecuta la aplicacion y que cargo un paquete ( forma ) y esta al darle click y cargar otra dinamicamente en ocasiones me trabaja perfectamente, pero en muchas otras me manda a 100 el porcentaje del cpu y se queda inhibida la pantalla por lo que solo por medio de Task Manajer y realizandole un End Task puedo cerrar la aplicacion. a continuacion pongo parte del codigo
// inicia proceso de carga paquete
procedure TfrmGenLiquiContra.cmdDescuentosClick(Sender: TObject);
var
MHmodDesc : HModule; // variable para el paquete dinamico
MTpcDesc : TPersistentClass; // variable para la clase del paquete dinamico
frmCatDesc : TFormaBase; // variable para la forma contenida en el paquete
begin
MHmodDesc := LoadPackage('c:\Paquetes\pkgDescuento.bpl'); //carga del paquete
if MHmodDesc <> 0 then
begin
MTpcDesc := GetClass('TfrmModCadDesc'); // obtiene la clase contenida en el paquete
if MTpcDesc <> nil then
begin
frmCatDesc := TComponentClass(MTpcDesc).Create(Application) As TFormaBase; // crea el componente de la clase del paquete. de la forma predeterminada en el paquete UFormaBase
// datos para parametros del paquete
frmCatDesc.SetSis_Id(fSis_Id);
frmCatDesc.ActForm(True);
frmCatDesc.ShowModal;
end;
end;
end;
y he estado checando y a veces me truena el proceso en
frmCatDesc.ActForm(True);
y otras ocasiones es en :
frmCatDesc.ShowModal;
quedo en espera de una pronta ayuda de antemano muchas gracias