FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Dudas con el funcionamiento del RegisterClasses en Delphi 6.0
Buenas...
Tengo un paquete de runtime con estas unidades... unit uListadosInit; interface implementation uses Classes, uLstUsuariosApp{frmLstUsuariosApp}, uLstAlfabetico{frmLstAlfabetico}, uLstAplicaciones{frmLstAplicaciones}, uLstAppUsuario{frmLstAppUsuario}, uLstEquipos{frmLstEquipos}, uLstEstructura{frmLstEstructura}, uLstEtiquetas{frmLstEtiquetas}, uLstFichaAplicacion{frmLstFichaAplicacion}, uLstInternet{frmLstInternet}, uLstNoFunciona{frmLstNoFunciona}, uLstUbicacion{frmLstUbicacion}, uMDInventario{dmInventario: TDataModule}; initialization RegisterClasses([TfrmLstUsuariosApp,TfrmLstAlfabetico,TfrmLstAplicaciones, TfrmLstAppUsuario,TfrmLstEquipos,TfrmLstEstructura,TfrmLstEtiquetas, TfrmLstFichaAplicacion,TfrmLstInternet,TfrmLstNoFunciona,TfrmLstUbicacion]); finalization UnRegisterClasses([TfrmLstUsuariosApp,TfrmLstAlfabetico,TfrmLstAplicaciones, TfrmLstAppUsuario,TfrmLstEquipos,TfrmLstEstructura,TfrmLstEtiquetas, TfrmLstFichaAplicacion,TfrmLstInternet,TfrmLstNoFunciona,TfrmLstUbicacion]); end. Cuando intento buscar la clase TfrmLstAlfabetico en my app: procedure TfrmInventario.mListadosAlfabeticoClick(Sender: TObject); var FChildForm: TForm; AClass : TFormClass; begin result := nil; FChildForm := TForm( Application.Mainform.FindComponent('uLstAlfabetico') ); if not Assigned(FChildForm) then begin AClass := TFormClass( GetClass('TfrmLstAlfabetico') ); if AClass <> nil then begin LockWindowUpdate(Application.MainForm.Handle); ... La funcion getClass devuelve nil, parece como si el registerClasses no funcione pq el getClass 1º comprueba si esta registrada y entonces la obtiene, esto con delphi 5.0 funciona pero con delphi 6.0 ya no funciona o eso me parece, que es lo que me falta o hago mal? Gracias, salu2... |
|
|
|