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...
|