FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
||||
|
||||
Yo probé este sencillo código en Delphi 6, y funciona sin problemas:
Código:
procedure TForm1.Button1Click(Sender: TObject); var AClass: TPersistentClass; begin AClass := GetClass('TForm1'); if AClass <> Nil Then ShowMessage('AClass <> Nil'); end; initialization RegisterClasses([TForm1]); finalization UnRegisterClasses([TForm1]); ¿Estas usando alguna vez en el proyecto la unit que registra las clases? ¿Si pones un BreakPoint en la línea del RegisterClass se detiene ahí?
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|