FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
duda sobre paquetes
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 paquetebegin 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 // datos para parametros del paquetefrmCatDesc := TComponentClass(MTpcDesc).Create(Application) As TFormaBase; // crea el componente de la clase del paquete. de la forma predeterminada en el paquete UFormaBase 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
__________________
La ignorancia se supera cuando se atreve uno a preguntar. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|