Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-02-2004
glp1 glp1 is offline
Registrado
 
Registrado: feb 2004
Posts: 9
Poder: 0
glp1 Va por buen camino
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...
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:40:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi